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SIX SIMPLE TIPS FOR PROGRAMMERS 
7 

AMAZIN' 

That's what youH say if you get throush this maze. 

For Apple, Atari, Commodore 64, IBM PC, 'n-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

25 

poisoNivy 

Can you get out of a "(Middy" situation before the Poison ivy sets you? 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

42 

WORD SCRAMBLE 
A mind-teasing game of mixed-up letters. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

56 

SECRETCODES 
Encode and decode your private correspondence. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

69 

GRAPHIC FANTASY 
Hours of computer-generated graphics. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

79 

WATER BALLOONS 
Cool off vfith this wet 'n wild aiming game. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

95 

MONSTER IN THE AAARSH 
Choose the right path out of the marsh, or else... 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

113 

TEAM BATTING AVERAGE 
Whether your average is lousy or great, this program lets you know! 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

123 

THE DRAWING PROGRAM 
Become a computer Vincent >^n Gogh. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

135 

MUSIC RECORDER 
WHte and record songs on your computer. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

Because of the sound and graphics requirements of some of the programs and the limitations of some computers, not all prosrams are 

translated for all machines. 





introauction 








JL. 6 

SIMPLE TIPS 
FOR PROGRAMMERS 

Even the most experienced programmers make the most basic errors every once in 
awhile. To help you avoid frustrating mistakes, here are some simple programming 

reminders. 

1. 

When you type program lines into your computer, be sure to copy them exactly as 
written. Numbers, punctuation marks, and spaces are important. 

2. 

Remember to keep the alpha lock (or caps key) down while you're typing in the 

program. 

3. 

Press RETURN or ENTER after every completed program line. 

4. 

Before you run the program, save it. That way you avoid crashing the program if 

you made a typing error. 

5. 

Run the program when you finish typing it in by typing RUN and pressing the RETURN 
or ENTER key. If the computer gives you an error message, don't panic. Mistakes can 
be fixed. List the program by typing the word LIST and pressing the RETURN or ENTER 
key and double-check each line. If there is data, check to make sure you haven't 
typed any extra commas. Make sure you've typed zeros and not the letter "O." A 
foolproof way to correct a mistake is to type in the entire line again (including its line 
number). When you list the program again, you'll find the new line in place of the old. 

6. 

If you need more help, read the programming guide you received v^ith your computer 

It should cover most of your questions. 

PUBUSHED BY SCHOLASTIC INC. 

COPyRIGHT © 1984 BY SCHOLASnC INC. 
Aa RIGHTS RESERVED 





5 



10 AWESOME PROGRAMS FROM K-POWER 



BONUS PROGRAM #1 

AAiUZIN' 

Ah A Z I N ' i s what you'll say , t h b f i r s t t i me you ma k e i t 
through this twistin' maiJien The clock tells you your 
score time, so you can compare your score with the best 
sc or e « Wa t c h out for wa 1 1 s ! If you c o 1 1 i d e? with a wa 1 1 , 
you lose« On most computers you have? the choice of 
joystick control or keyboard controls Select which one 
you want at tho^? beginning of the game,. If you use the " 
keyboard, write the di reaction keys down on a piece of 
paper and practice using them. Pushing dirf^ction keys 
will get you where you want to go.^ pronto! 



Apple II and Apple lie 

1 REM AMAZIN 



APPLE 



10 


GOTO 


3000 




99 


REM 


JOYSTICK ROUTINE «** 




100 


IF 


PDL (1) < 64 THEN YI = ~ 


1 s RETURN 


110 


IF 


PDL (1) > 192 THEN YI == Is 


RETURN , 


120 


IF 


PDL <0) < 64 THEN XI - 


Is RETURN 


130 


IF 


PDL (0) > 192 THEN XI = 1: 


RETURN 


160 


XI 


0:YI - 0: RETURN 




199 


REM 


*** READ KEYBOARD ROUTINE 




200 


XI = 


OsYI = OsLI 




210 


KE = 


PEEK ( - 16384)5 POKE - 


16368,0 


220 


IF f 


.•:E < 123 THEN 250 




230 


IF 


CHR* (KE - 128) =• KT*(LI) 


THEN YI = 


240 


LI = 


LI + Is IF LI < 4 THEN 220 





= YT(LI) s XI 



XT(LI)s RETURN 



250 
499 

500 XI 



RETURN 

REM *** MAIN LOOP-DRASW PLAYER CHARACTER 
OsYI = OsLI = 



510 CO = 3sR0 = OsL = 
520 TI = V 

530 IF YI = AND XI = THEN 550 
540 C0L0R= Os PLOT CO - XI,R0 - YI 
550 COLOR= 143 PLOT CO,RO 
560 IF L = 1 THEN 2000 
570 ON J BOSUB 100,200 
580 RO =. RO + YIsCO = CO -i- 
590 IF CO > 39 THEN 1000 
600 IF RO < O THEN RO = 
620 IF SCRN( CO,RO) = 15 
630 TI = TI + 1 
640 GOTO. 530 

999 REM *** SUCCESSFULLY COMPLETE MAZE 

1000 TEXT s HOME s WH == TI 
1010 FOR T =1 TO 100 

1020 PRINT "YOU MADE IT! "5 
1040 NEXT T 

1060 IF WH < LS THEN LS WH 
1070 HOME 

1080 PRINT TAB( 11) "YOUR SCORE ISs "WH 



XI 



THEN L = 1 
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10 AWESOME PROGRAMS FROM K-PGWER 



1090 


PRINT 






1 100 


PRINT TAB( 10) "THE LOW SGDRE IS: "LS 






1110 


PRINT 






1 120 


SOTO 2030 






1999 


REM RUN INTO WALL 






2000 


TEXT 5 HOME 






2010 


PRINT TAB( 6) "YOU RAN INTO A WALL!" 






2020 


PRINT 






2030 


PRINT TAB( 6) "PRESS ANY KEY TO PLAY AGAIN" 






2040 


IF PEEK ( - 16368) > 127 THEN 2040 






2050 


GET DUM:$^ 






2060 


RESTORE 






2070 


GOTO 3120 






2999 


REM INTRODUCTION 






3000 


HOME 






3010 


PRINT " ARE YOU USING A JOYSTICK (Y/N)?" 






3030 


IF Jt' = "Y" THEN J = 1: GOTO 3120 






3040 


IF Ji^' < > "Y" THEN J = 2 






3050 


HOME 






3060 


PRINT "THE DIRECTION KEYS AREs " 






3070 


PRINT 






3080 


PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 






3090 


PRINT 






3100 


PRINT "PLEASE PRESS ANY KEY TO BEGIN. " 






31 10 


GET m 






31 15 


DIM KTt- (3) , XT (3) , YT (3) 






,31 19 


REM INITIALIZE VARIABLES 






3120 


GR s POKE - 16302,0: CALL - 1998s LS = 400 






3130 


COLOR?= 15 






3139 


REM -X-** DRAW MAZE 






3140 


FOR RO = 1 TO 47 






3150 


READ X1,X2,Y 






3160 


HLIN XI, X2 AT Y 






3170 


NEXT RO 






3180 


FOR CO = 1 TO 45 






3190 


READ Y1,Y2,X 






3200 


VLIN Y1,Y2 AT X 






3210 


NEXT CO 






3220 


FOR IN = 1 TO 44 






3230 


KOL = INT ( RND ( 1 ) -^t- 15) + 1 s IF KOL = 15 THEN 323 





3240 


COLOR==: KOL 






3250 


READ X,Y 






3260 


PLOT X,Y 






3270 


NEXT IN 






3279 


REM INITIALIZE DIRECTION VARIABLES 






3290 


FOR I = TO 3s READ KTt ( I ) s NEXT 






3300 


FOR I = TO 3s READ XT(I)s NEXT 






3310 


FOR I = TO 35 READ YT (I ) s NEXT 






3320 


GOTO 500 






5000 


DATA %— ' , o9 , O tf H 0*9 , 1 i, ^1*0 h -39 , ^ ^ 1 ip -j^' ^ ^ "39 , 






50 1 


DATA 30,33,5,0, 13,8,0,6,9,32,39,9,35,39, 10, 


9 , 1 'mI' ,11 


,30,33, 13 


5020 


DATA 4, 11, 15, 4, 11, 16, 4, 11, IS, 4, 11,1 9, 13^16, 


19,23,2 


5,19 


5030 


DATA 23,25,20,29,39,20,29,39,21 ,27,39,22,5, 


9,23 




5040 


DATA 27 , 39 , 23 , 25 , 30 , 24 , 25 , 30 , 25 , , 7 , 26 , 9 , 1 1 


,26 




5050 


DATA , 7 , 27 , 9 , 1 1 , 27 , 19 , 30 , 28 , 34 , 36 , 28 , 34 , 36 , 29 




5060 


DATA 4, 11 ,30, 17,34,32, 17,34,33,4,6,34,8, 10, 


34 




5070 


DATA 37 , 39 , 36 , 4 , 6 , 40 , 8 , 27 , 40 , 4 , 6 , 4 1 , 8 , 27 , 4 1 


3"'; 3A 


41 


5080 


DATA 33 , 36 , 42 , 4 , 27 , 44 , , 39 , 47 






5090 


DATA 0,47,0,0,7, 1 , 15, 19, 4 , 35 , 39 , 4 , , 2 , 5 , 15 , 


19,5 
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10 AWESOME PROGRAMS FROM K-POWER 



5100 


DATA 


35,39,6,35,39,8,11,19,9,0,2,10,11,19,10 








5110 


DATA 


35,39, 10, 11 ,22, 11 ,24,27, 11 , 19,39, 13,27,33, 14 








5120 


DATA 


4, io, 15,4, 10, 16, 16, 19, 16, 14, 16, 17,23,31 , 17, 12, 14, 18 


,20 


7 


« 18 


5130 


DATA 


0, 12, 19, 19,21 , 19, 17, 19,20, 15, 17,21 ,34,37,21 ,2, 3-, 22 








5140 


DATA 


6, 15,22,26,27,24,36,39,24, 16, 18,25,26,27,25 








5150 


DATA 


, 1 6 , 26 , 34 , 37 , 27 , 26 , 27 , 29 , 5 , 1 3 , 30 , 26 , 27 , 30 








5160 


DATA 


34 , 44 , 30 , 36 , 40 , 33 , 30 , 3 1 , 34 , 1 1 , 1 9 , 35 , 1 1 , 1 9 , 36 








5170 


DATA 


11,47,39 








5180 


DATA 










5190 


DATA 


37, 11,38,11,37, 12,38,12,37, 13,38,13,37,14,38,14,37, 


15, 


38, 






15,37 


, 16,38, 16,37, 17,38, 17,37, 18,38, 18,37, 19,38, 19 








5200 


DATA 


6, 17,7, 17,8, 17,5,35,5,36,5,37,5,38,5,39,9,35,9,36,9 


, •-•7 




39 


5210 


DATA 


2<S tf 2<S 1} 217 tf 2<ib ■) 2B ^ 26 ^ 2<i> ^ 27 27 ^ 27 ^ 28 ^ 27 








5220 


DATA 










Atari 













1 REM *** AMAZIM' ATARI *** 
10 GOTO 3000 

99 REM *#* JOYSTICK ROUTINE »•«•* 

100 JV=STICK<0) 

110 IF JV=14 THEN XI=Oj YI=-~1 f RETURN 
120 IF JV=13 THEN X 1=05 YI^^l s RETURN 
130 IF JV=li THEN X I =-1 ; YI=0;. RETURN 
140 IF jy==7 THEN' X 1 = 1 5 YI=0s RETURN 
150 XI=OsYI=0 
160 RETURN 

199 REM *** READ KEYBOARD ROUTINE *** 

200 XI--=--Oi' YI=0 
210 K=^PEEK(764) 
220 FOR D^l TO 15 
230 NEXT D 

240 IF K--=--255 THEN 210 
250 IF K=13 THEN X 1=0! YI=~1 s RETURN 
260 IF K^--=37 THEN X I==0; YI-= 1 ; RETURN 
270 IF K=l THEN XI— 1 s YI-Os RETURN 
280 IF K=^0 THEN X 1 = 1 s YI=Os RETURN 

499 REM **« MAIN LOOP-DRAW PLAYER CHARACTER, 

500 Hi=--2s H2--0 
510 CQ=2 

520 L=0 

530 RQ=-0 

540 COLOR 

550 PLOT H1,H2 

560 COLOR 2 

570 PLOT CO.RO 

580 IF L==l THEN 2000 

590 Hl==COs H2=R0; TI--=TI + l 

600 ON J GOSUB 100,200 

6 1 RQ^:RO-i" Y I s CO=CO-i- X I 

620 IF C0>39 THEN 1000 

630 IF R0<0 THEN R0=0 

640 LOCATE C0,R0,C 

650 IF C=l THEN L=i 

660 POKE 752,6 

670 PRINT CHR$(125) 

680 PRINT TI 

690 FOR T=i TO 30 

700 NEXT T 

7i0 PRINT 
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10 AWESOME PROGRAMS FROM K-POWER 



720 


GOTO 540 




999 


REM #** SUCCESSFULLY COMPLETE MAZE *** 




1 000 


GRAPHICS 




1010 


FOR T=i TO 100 




1 020 


PRINT "YOU MADE IT! "; 




1 030 


NEXT T 




1040 


PRINT CHR*<125) 




1050 


PRINT "YOUR SCORE ISs ";TI 




1060 


IF TKLS THEN LS=TI 




1070 


PRINT 




1080 


F'RINT "LOW SCORE ISs "5LS 




1090 


PRINT 




1100 


GOTO 2030 




1999 


REM *** RUN INTO WALL *** 




2000 


GRAPHICS 




20 1 p 


PRINT "YOU RAN INTO A WALL!" 




2020 


PRINT 




2030 


F='RINT "PRESS (RETURN) TO PLAY AGAIN. " 




204O 


GOSUE-! 4000 




2050 


RESTORE 




2060 


GOTO 3180 




2999 


REM *** INTRODUCTION 




3000 


DIM J#(3) ,Rf (3) 




3010 


PRINT CHR4=(125) 




3020 


PRINT "TYPE YOUR ANSWER" 




3030 


PRINT "THEN PRESS (RETURN)." 




3040 


PRINT 




3050 


PR INT " ARE YOU US I NG A J YST I CK ( Y / N ) " ; 




3060 


INPUT J$ 




3070 


IF j$="Y" OR j;f=:^"yes" then J=1 




3080 


IF J THEN 3150 




3090 


J=:2 




3100 


PRINT CHR*(125) 




3110 


PRINT "THE DIRECTION KEYS AREs " 




3120 


PRINT 




3130 


PRINT "I=UP M=--=DOWN J=LEFT L=RIGHT" 




3140 


PRINT 




3150 


PRINT "PLEASE PRESS (RETURN) TO BEGIN," 




3160 


6QSUB 4000 




3169 


REM *** INITIALIZE VARIABLES *** 




3170 


LS"999 




3180 


TI=0 




3190 


GRAPHICS 3 




3200 


SETCOLOR 0,0,8 




3210 


COLOR 1 




3220 


FiEAD A,B,C,D 




3230 


IF A==-— 1 THEN 500 




3240 


PLOT A , B 




3250 


DRAWTO C,D 




3260 


GOTO 3220 






REM *** WAIT ROUTINE *** 




4000 


POKE 764,255 




4010 


i<>PEEK:(764) 




4020 


IF K>255 THEN 4010 




4030 


RETURN 




5000 


DATA , ,0,19, 4 , , 39 , , 9 , 1 , 9 , 1 4 , 1 6 , 1 , 1 6 , 5 




5010 


DATA 25 , 1 , 25 , 4 , 30 , 1 , 30 , 3 ,34 , 1 , 34 , 3 




5020 


DATA 4,3,6,3,4,3,4, 11 , 18,3, 18,5,21 ,3,21 ,6,28,3,28,6,39 


T -TO 10 10 


4.12 
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5030 DATA 37 , 3 , 37 , 10 , 38 , 3 , 33 , 3 , 9 , 5 , 10 , 5 , 14 , 5 , 14 , 5 , 23 , 5 , 23 , 5 , 7 , 6 , 8 , 6 , 2 , 7 
,4,7 

5040 DATA 20,7,20,12,24,7,37,7,24,7,24,11 

5050 DATA 30 , 8 , 30 , 8 , 7 , 9 , 7 , 14 , 9 , 9 , 9 , 1 4 , 12 , 9 , 17 , 9 ,. 18 , 9 , 18 , 9 , 1 9 , S , 1 9 , 9 , 23 , 

Q OT D 
/ , .I..-..- , / 

5060 DATA 32,9,32,9, 1 , 10 , 2 , 10 , 18 , 10 , 19 , 1 , 23 , 1 , 28 , 10 

5070 DATA 19,11 , 1 9 , 1 1 , 27 , 1 1 ,27 , 16 , 27 , 1 1 , 34 , 1 1 , 34 , 1 1 , 34 , 15 , 12 , 12 , 16 , 12 , 

5080 DATA 21 , 13 , 21 , 13 , 4 , 14 , 7 , 14 , 9 , 1 4 , 18 , 14 , 21 , 14 , 24 , 14 , 24 , 15 , 24 , 15 
5090 DATA 30 , 14 ,32 , 14 , 32 , 14 , 32 , IS , 36 , 1 4 , 36 , 15 , 4 , 16 , 27 , 16 , 35 , 16 , 35 , 16 
5100 DATA 0,19,39,19 
5110 DATA ~1 ,-1 ,--1 , --1 

tommodore 64 

1 REM ♦** ftMAZIN' 64 *♦♦ 
10 GOTO 3000 

99 REM »*♦ JOYSTICK ROUTINE ♦*# 

100 JV=PEEK (56321) 
110 JV=15-(JVAND15) 

1£0 IF JV=1 THEN XI=0sYI=-i : RETURN 

130 IF JV=£ THEN X 1=0 5 YI=1 : RETURN 

140 IF JV=4 THEN XI=-1 :YI=0: RETURN 

150 IF JV=8 THEN XI=1 5 YI=0s RETURN 

160 XI=0:YI=0: RETURN 

199 REM *♦* READ KEYBOARD ROUTINE 

£00 XI=0:YI=0!LI=0 

£10 GET KE*:IF KE*=""THEN RETURN 

££0 IF KE*=KT*(LI)THEN YI=YT (LI) s X I=XT (LI ): RETURN 
£30 LI=LI + 1:IF LK4 THEN ££0 
£40 RETURN 

499 REM *** MfilN LOOP-DRAW PLAYER CHARACTER *** 

500 H1=3:H£=0 
510 CO=3:RO=0:L=0 

5£0 T I *='• 000000" 

530 IF C0>39 THEN 1000 
540 IF RO<0 THEN RO=0 
550 POKE CB+H1+40*H£, £ 
560 POKE CB+CO+40*RO, 
570 POKE SB+CO+40*RO, 81 
580 IF L=l THEN £008 
590 Hl=COsH£=RO 
600 ON J 60SUB 100, £00 
610 R0=R0+Yl5C0=C0+XI 

6£0 IF PEEK (BB+CO+40*RO) =160 THEN L=i 

630 PRINT CHR*(i9)CHR*(15g)TAB(36) RIGHT*(TI*, 3) 

640 GOTO 530 

999 REM *** SUCCESSFULLY COMPLETED MAZE *** 

1000 PRINT CHR$(147) :WH*=TI* 
1010 FOR T=i TO 100 

10£0 PRINT" YOU MADE IT! "§ 

1030 POKE 53£80, INT(RND(1)*16)+1 

1040 NEXT T 

1050 POKE 53£ai,3 

1060 IF VAL (RIGHT* (WH*, 3) ) <VAL<LS*) THEN LS*=RIGHT* ( WH*, 3) 
1070 PRINT CHR*(147)CHR$(144) 

1080 PRINT TAB(11)"Y0UR SCORE IS: "RIGHT* (WH*, 3) 
1090 PRINT 

1100 PRINT TAB (10) "THE LOW SCORE IS:"LS* 
iil0 PRINT 
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1120 GOTO 2030 

1999 REM *** RAN INTO WALL *** 

2000 PRINT CHR*<147)CHR*(144) 

2010 PRINTTflB<10) "YOU RAN INTO A WALL!" 
2020 PRINT 

2030 PRINTTAB(6) "PRESS (SHIFT) TO PLAY AGAIN."- 
2040 GOSUB 4000 
2050 RESTORE 

2060 GET DUM*:IF DUM*<>""THEN 2060 
2070 GOTO 3120 

2999 REM *** INTRODUCTION *** 

3000 PRINT CHR*(147) 

3010 PRINT " ARE YOU USING A JOYSTICK (Y/N) ?' 
3020 GET J*: IF J*=""THEN 3020 
3030 IF J*="Y" THEN J=1:G0T0 3120 
3040 IF J*=<>"Y" THEN J=2 
3050 PRINT CHR«(147) 

3060 PRINT "THE DIRECTION KEYS AREs" 
3070 PRINT 

3080 PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 
3090 PRINT 

3100 PRINT "PLEASE PRESS (SHIFT) TO BEGIN." 
3110 GOSUB 4000 

3119 REM **♦ INITIALIZE VARIABLES »** 

3120 SB=1024:CB=55296:LS*="200" 

3130 POKE 53280, 6: POKE 53281, 2: POKE 650,128 

3139 REM ♦** DRAW MAZE *♦* 

3140 PRINT CHR*(147) 
3150 READ CO, A, B 

3160 IF C0=-1 THEN 3220 

3170 FOR R0=A TO B 

3180 POKE SB+CO+40*RO, 160 

3190 POKE CB+CO+40*RO, 1 

3200 NEXT RO . 

3210 GOTO 3150 

3220 READ RO, A, B 

3230 IF R0=-1 THEN 3290 

3240 FOR CO=A TO B 

3250 POKE SB+CO+40*RO, 160 

3260 POKE CB+CO+40*RO, 1 

3270 NEXT CO 

3280 GOTO 3220 

3290 READ RO, A, B 

3300 IF RO=-i THEN 3380 

3310 FOR CO=A TO B 

3320 Q=INf (RND(1)*16)+1 

3330 IF Q<3 OR Q> 7 THEN 3320 

3340 POKE SB+CO+40*RO,81 

3350 POKE CB+CO+40*RO, Q 

3360 NEXT CO 

3370 GOTO 3290 

3380 READ RO, CO, CH 

3390 IF RQ=-1 THEN 3443 

3400 POKE SB+CO+40*RO, CH 

3410 POKE CB+CO+40*RO, 158 

3420 PRINT CHR*(144) 

3430 GOTO 3380 

3439 REM *♦♦ INITIALIZE DIRECTION ARRAYS *** 

3440 FOR 1=0 TO 3sREAD KT$(i):N£XT 
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3450 FOR 1=0 TO SsREftD XT(I>:NEXT 
3460 FOR l^fd TO 3: READ YT(I):NEXT 
3470 GOTO 500 

3999 REM *** WAIT ROUTINE **♦ 

4000 WAIT 653, 1 
4010 WAIT 653, 1,1 
4020 RETURN 

5000 DATA 0, 0, £4, 1 , 0, 6, 4, 18, 20, 5, 0, 2, 5, 18, 20 

5010 DATA 6,0, 2, 6, 18,20, 7,0,2, 8, 1,2, 8, 7, 10, 8, 18, 20 

5020 DATA 9,14,14,9,1,2,9,7,10,9,18,20,10,7,10,10,13,14 

5030 DATA 10,18,20,12,10,20,13,3,5,13,14,15 

5040 DATA 14,3, 5, 16, 14, 16, 17, 0,7, 21,4,7, 25, 0,8, 27, 11, 13 

5050 DATA 27,17, 18,28,10,13,29,2,6,29,9,13 

5060 DATA 30,9,13,31,17,22,34,14,16,34,18,21,36,4,10 

5070 DATA 39, 0, 1 , 39, 3, 24, -1 , -1 , -1 

5080 DATA 0, 5, 39, 1,5,7, 1, 35, 39, 2, 5,7,2,21,21, 2, £9, 33 

5090 DATA 3, 13, 14, 3,36, 39, 4, 32, 35, 5, 2, 11,6, 2, 4 

5100 DATA 6,30,32,7,11,12,8,16,16,8,20,20,9,4,7 

51 10 DATA 9, 15, 15, 9, 19, 19, 9, 24, £4, 9, 29, 35, 10, 4, 7 

5120 DATA 10, 13, 14, 10, 18, 18, 10, ££,24, 10,28, 38, 11, 10, 10 

5130 DATA 11, 17, 17, 11,27,30, 12,4,8, 12, l6, 16, 12,26,30, 13, 16, 16, 13, 18, 30 

5140 DATA 14, 1, 7, 14, 13, 13, 14, 35, 36, 15, 13, 13, 16, 4, 10, 16, 16, 33 

5150 DATA 17, 18, 18, 17, 27, £7, 18, 4, 6, 18, 8, 10, 18, 18, 18, 18, 38, 38 

5160 DATA 18,22, 22, 19,4,6, 19, 8, 10, 19,22, 22,20,4,6, 20, 8, 10 

5170 DATA 20,11,27,21,35,36,22,4,27 

5180 DATA 24,0,39,-1,-1,-1 

5190 DATA 0,36, 38, 1,6, 8, 8, 9, 9,9, 9, 9, 11,29, £9, 1£, £8, £9, 19, 5,5 
5200 DATA 19,9,9,4,38,38,5,37,37,6,38,38,7,37,37 
5£10 DATA 8,38,38,9,37,37,-1,-1,-1 

5220 DATA 4, 37, 1, 5, 38, 13, 6, 37, 1,7, 38, 26, 8, 37, 9, 9, 38, 14, -1, -1, -1 
5230 DATA I, J, L, M, 0, -1, 1, 0, -1, 0, 0, 1 

IBM PC 

:i,0 REh AUHZIN IBM--PC 

20 KEY OFF 
30 GOTO 550 

40 F^EM -READ KEYBOPiRD 

50 LI---OS XI-Oj Yl-O 

60 KE•-Hi■•-^^I.NKEY■* 

?0 IF KE*-~"" THEN RETURN 

80 I F KE$-:^!< T < l... I ) THEN Y I =YT ( I.... I ) s X I = X T' ( L. I ) s RETURN 
90 LI==L:M-.1 : IF LK.'I THEN 80 
100 RETURN 

110 REM MAIN LOOP - DRAW CHARACTER **« 

1 20 C0^:-=4 s RO---^ 1 : L-^^=0 5 H 1 1 ; H2~4 

130 LOCATE HI ,,H2,0 

140 PRINT CHR*(32.); 

150 LOCATE ROhCO,0 

160 PRINT CHR* (2) ; 

170 Hl^-^T-;:Cs H2=C0 

180 IF L-1 THEN 440 

190 GOSUB 50 

200 RO=RO+YI ! CO-;iCO-i-Xl . ' 

210 IF R0>24 THEN RO^-^24 

220 IF R0<1 IHEN R0==1 

230 IF C0<1 IHEN C0=1 

240 IF C0>S0 THEN 310^ 

250 0=-SCREEN<R0,C0) 

260 IF Q-219 THEN L^^^ 
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270 LOCATE 2,76,0 

280 PRINT RIGHT.*:<TIME-^,4) 

290 GOTO 130 

300 REM MAZE COMPLETED -^-^Jt- 

310 CLS 

320 1 00* V AL < M I D$ ( T I ME$- , 4 , 2 ) ) -t- V AL ( M I Dt- ( T I ME^^^ ,7,2)) 
33i:) FOR T==l TO 30 

340 PRINT TAB (33) § "YOU MADE IT!!!" 

350 PRINTS NEXT T 

360 IF S<LS THEN LS^^^S 

370 CLS 

380 PRINT "YOUR SCORE ISg"?S 
390 PRINT 

400 PRINT "THE LOkl SCORE ISs"5LS 
410 PRINT 
420 GOTO 470 

430 REM RAN INTO A WALL DUMMY ! ¥.'¥r'W 

440 CI...S 

450 PRINT "YOU RAN INTO A WALL! YOU LOSEu " 
460 PRINT , 

470 PRINT "PRESS <ENTER> TO PLAY" AGAIN« " 

480 G08UB 1000 

490 RESTORE 

500 DUM:$:^INKEYt 

510 IF DUMtO"" THEN 500 

520 CLS 

530 GOTO 630 

540 REM -f^^-^ INTRODUCTION -^-^-^i 
550 SCREEN 0.0,0s WIDTH 80 2LS==999 
560 CLS 

570 PRINT "THE DIRECTION KEYS AREs " 
580 PRINT 

590 PRINT "I--=:UP M=^DOWN J=^LEFT L=--RIGHT" 
600 PRINT 

610 PRINT "PRESS <ENTER> TO CONTINUE.." 
620 GGSUB" 1000 
630 CLS 

640 REM •^•^•^ INITIALIZE MOTION ARRAYS -^-J^-^- 

650 FOR 1=^0 TO 3 3 READ KT:$:(I)sNEXT I 

660 FOR 1^0 TO 3 s READ KTCDsNEXT I. 

670 FOR 1:^0 TO 3s READ YT(I)sNEXT I 

680 REM -^-^K- SCREEN DISPLAY ^-^-'f^ 

690 READ RO,A,B 

700 IF RO:-=--i THEN 760 

710 FOR CO==-=A TO B 

7 20 LOCATE RO , CO , 

730 PRINT CHR^- (219) 5 

740 NEXT CO 

750 GOTO 690 

760 READ CO,A,B 

770 IF C0==-1 THEN 830 

780 FOR R0=^A TO B 

790 LOCATE RO , CO , O 

800 PRINT CHRt (219) ?, ' 

810 NEXT RO 

820 GOTO 760 

830 FOR R0-::^8 TO 13 

840 READ C0,CH 

S50 LOCATE R0,C0,0 
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10 AWESOME PROGRAMS FROM K-POWER 



860 PRINT CHR'^<CH)5 
870 HEX J RO 
880 T I ME t~ " 00 g 00 5 00 " 
890 GOTO 120 

900 REM WAIT' ROUTINE 

1000 Ri!;^=TlNKEY:$^ 

1010 IF R:*:<>CHR:il?(13) THEN 1000 
1020 REIURN 

2000 DA T A I , N , J , L.. , , , - 1,1,-1,1,0,0 

20 1 DA 1 A 1 , 7 H 80 , 3 , 28 , 36 , 3 , 76 , 80 , 4 ,7,9,5,57, 60 ,6,1,4,6,18,21,6, 36 , 38 , 7 , 
72 , 80 

2020 DA T A 8,11,1 3 , 8 , 68 , 70 , 9 , ::::;8 ,41,9, 67 , 68 , 3. 15.18, 1 , 4 1 ,61,11,4,7,1 2 , 
41 ,57, 12,6,1 ,72 

2030 DATA 14, 7,8, 14, 10, 1 1 ,14, 1 3 ,.14 , 1 4 , 28 , 29 , 1 4 , 31 , 32 , 1 4 , 77 , 80 , 15 , 1 1 , 1 2 , 
15,20,21 , 15,54,74, 16,44,54 

2040 DATA 17, 1 .4,18, 1 5 , 38 , 1 8 , 54 , 65 , 1 8 , 68 , 79 , 20 , 38 , 5 1 , 2 1 ,5,7,21 ,11 ^ 35 , 
22,49, 76,25 , 1 , ?9, 1 , 1 ,-1 

2050 DATA 1 1 ,25,5,23,23,7,4,21 ,8, 14, 14,9,8,8,9,21 ,21 , 10, 14 , 14, 1 1 ,8,21 , 
1 1 , 23 , 2 :!:: , 1 2 , 1 5 , 1 5 , 1 :!!. , 2 , 8 , 1 :!!; , 1 ^1- , 1 4 

2060 DATA 14,14, 14 , 15,5, 10. 15,13,13, 15,17,17,16,16,16,17,15,15,18,2,6, 
18,10,14, 20 ,15,15,21,6,15, 23 , ^- , 4 , 23 , 22 , 22 , 23 , 24 , 24 

20 70 DA T' A 24 , 5 , 6 , 25 , 6 , 1 7 , 28 , 3 ^ 4 , 30 ,6,6, 32 , 6 , 1 7 , 34 ,6,17, 35 , 23 ,23,36,3, 
1 4 , 36 , 1 6 , 1 6 , 38 , 2 , 6 , .38 ,18, 2X) , 39 , 1 7 , 1 7 

2080 DATA 40, 16, l6,41 ,4,10,41 , 12,15,41 ,23,24,45,2,6,45, 17, 18,48, 19,22, 
49 , 5 , 1 , 52 , 1 7 , 1 8 , 53 , 2 , 6 , 54 , 1 5 , 1 8 , 55 , 1 8 , 20 

2090 DATA 57 , 5 , 1 , 59 , 1 3 , 1 3 , 59 , 20 , 21 ,61 ,7,7,61 , 10, 1 2 , 6 1 , 1 6 , 1 6 , 62 , 2 , 2 , 62 , 
6,6,62,9,9, 63 ,3,3, 63 ,5,5,75,2, 3 

2100 Dh T'A 63,8,8,64,4,4^64,7,7,65,6,6,65, 19, 1 9 , 69 , 2 , 7 , 72 , 4 , 1 2 , 72 , 20 , 21 , 
74,7, 15,76, 13, 13,76, 16, 16,77,7 , 14,79,24,24 

2 1 1 DA ( A 78 , 22 , 22 , 80 , 1 , 3 , 80 , 7 , 23 , 1 , 1 , 1 

21 20 DATA 78 , 65 , 79 , 77 , 78 , 65 , 79 , 90 , 78 , 73 , 79 , 78 

TI-99/4A 

1 REM -^^i* AMAZIN' TI99/4A -^-^-^ 
10 BGTG 740 

19 REM JOYTSICK ROUTINE ^^-J^-^- 

20 CALL JGYST(2,M,N) 
30 XI^^O 

40 YI^O 
50 LI^^O 

60 IF M^^ J I (LI) THEN 70 ELSE 110 
70 IF N-KI(LX)THEN 80 ELSE 110 
80 XI-=XT(LI) 
90 YI^=XY(LT) 
100 RETURN 

110 LI:::=LI-i"l 

120 TI^^TI-i-1 

130 IF LK4 THEN 60 

140. XI^O 

150 YI-^O . V 

160 RETURN 

169 REM READ KEYBOARD ■^■^■-^ 

170 XI==0 

180 Y 1:^^:0 

190 LI^^O 

200 CALL KEY(3,K,P) 

210 T^^TI"KL 

220 IF P^^^^O THEN 170 

230 IF IO^:B(LI)THEN 240 ELSE 270 
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240 XI=XT(LI) 

250 YI=XY<H) 

260 RETURN 

270 LI=LI+1 

280 IF LK4 THEN 230 

290 XI=0 

300 XI=0 

310 RETURN 

319 REM *** MAIN LOOP/DRAW PLAYER CHARACTER #*# 

320 Hl=l 
330 H2=4 
340 R0==1 
350 C0=4 
360 L=0 

370 CALL VCHAR(H1 ,H2, 136) 
380 CALL VCHAR(RO,CO, 144) 
390 IF L=l THEN 660 
400 H1:=R0 
410 H2=CQ 

420 ON J GOSUB 20,170 
430 RO=RO-i-XI 

440 co=ca+Yi 

450 IF R0<1 THEN 460 ELSE 470 
460 R0=1 

470 IF C0>32 THEN 520 

480 CALL 6CHAR<R0,C0,D) 

490 IF 0=128 THEN 500 ELSE 370 

500 L=i 

510 60TQ 370 

519 REM *** COMPLETED MAZE • 

520 CALL SCREEN (12) 
530 CALL CLEAR 

540 FOR T=^l TO 25 

550 PR I m " YOU MADE I T i : ! " 

560 PRINT 
570 NEXT T 

500 IF TKLS THEN 590 ELSE 600 
590 LS==TI 
600 PRINT 

610 PRINT "YOUR SCORE IS:"!|TI 
620 PRINT 

630 PRINT "THE LOW SCORE ISs";LS 
640 PRINT 
650 SOTO 700 

659 REM LOSE GAME *** 

660 CALL SCREEN (9) 
670 CALL CLEAR 

680 PRINT "YOU RAN INTO A WALL!" 
690 PRINT 

700 PRINT "PRESS (ENTER) TO PLAY A6AIN„ " 
710 GOSUB 1260 
720 CALL CLEAR 
730 GOTO 920 

734 REM INTRODUCTION 
740 CALL CLEAR 

750 PRINT "TYPE YOUR ANSWER" 
760 PRINT "THEN PRESS (ENTER)." 
770 PRINT 

780 PRINT "ARE YOU USING A JOYSTICK"; 
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790 INPUT J$ 

800 IF SEG*<J*,1,1)="Y" THEN 810 ELSE 830 

810 J=l 

820 GOTO 880 

830 J =2 

840 CALL CLEAR 

850 PRINT "THE DIRECTION KEYS ftRE: " 
860 PRINT 

870 PRINT "I=LiP M=DOWN J=LEFT L=RI6HT" 
880 PRINT 

890 PRINT "PRESS (ENTER) TO BEGIN. " 
900 GOSUB 1260 
910 LS=999 , 
920 RESTORE 
930 TI=0 

939 REM *** DEFINE CHARACTERS *** 

940 A$="FFFFFFFFFFFFFFFF" 
950 B*="1S183CFFFF3C1S1S" 
960 CALL CHAR<128,A$) 
970 CALL CHAR(i36,B*) 

980 CALL CHAR(144,B$) 
990 CALL COLOR (13,5,5) 
1000 CALL COLOR (14,2,2) 
iOiO CALL COLOR (15, 15,2) 
1020 FOR V==l TO 12 ' 
1030 CALL COLOR (V, 16,2) 
1040 CALL CLEAR 
1050 NEXT V 

1059 REM *** SCREEN DISPLAY *** 

1060 READ RO 5 CO, REP 
1070 IF R0=--1 THEN 1100 

1 OSO CALL VCH AR ( RG , CO , 1 28 , REP ) 
1090 GOTO 1060 

1100 re:ad ro,co,rep 

1110 IF R0=-1 THEN 1140 

1 1 20 CALL HCH AR ( RO , CO , 1 28 , REP ) 

1130 GOTO 1100 

1140 FOR y^-=26 TO 31 

1150 READ CH 

1160 CALL HCHAR(23,V,CH) 
1170 NEXT V 

1179 REh *** LOAD DIREICTION ARRAYS *** 

1180 FOR I:-^0 TO 3 
1190 READ XT (I) 
1200 READ XY(I) 
1210 READ JZ (I) 
1220 READ KI (I) 
1230 F-CAD B(I) 
1240 NEXT I 

1250 GOTO 320 
1260 INPUT R* 
1270 RETURN 

1280 DATA 1 ,2,24,6,4.5, 12,4,5,, 18,4,2,21 ,4,3 

1 290 DATA A- , 5 , 1 , 4 ,6,4 , 9 , 6 , 5 ,15,6,5, 1 9 , 7 , 3 ,1,8 , 1 7 

1 300 DATA 4 , 1 , 1 1 , 22 , 1 , 2 , 1 8,11,1,1, 1 3,11 , 1 5,13 , 2 

1 3 1 DATA 19,13,3,5, 1 6 ,9,22, 1 6 ,2,15, 1 S , 1 , 9 , 1 7 , 1 

1 320 DATA 1 1 , 1 9,1,1 7 ,19,5,1, 20 ,11,4,22,6, 1 1 , 23 , 3 , 1 , 24 , 6 

1 330 DATA 1 4 , 26 , 7 , 23 ,25,1,5 , 27 , 4 , 1 2 , 29 , 1 ,18, 29 , 2 

1 340 DATA 1 7 , 30 ,1,5, 32 , 20 , 1 , 1,-1 
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1.::.50 DATA 1 , 5 , 28 , 2 , 24 , 9 , 6 , 3<J , 2 , 9 , 22 , 8 , 1 1 , 23 , 1 1 




1360 DATA 13516,8,15513,17,17,8,4,14,1053522,25, 


e 


1370 DATA 24,1,31,19,6,18,5,18,1,19,31,1,-1,-1,- 


1 ' ' 


1380 DATA 65,77,65,90,73,78 




1390 DATA "1,0,0,4,73,1,0,0,-4,77 




1 ^FUL' UR I R u , .1. , —4 , U , / 4 , U , i , 4 , U , 76 




TRS-80 Color Computer 




1 REM *** ftMftZIN' 




10 GOTb 3000 




99 REM *** JOYSTICK *** 




100 H=JOYSTK(0) 




110 V=J0YSTK(1> 




lc!0 IF H<10 THEN XI=0sYI=-l : RETURN 




130 IF H> 52 THEN XI=0sYI=l : RETURN 




140 IF V<10 THEN YI=0:XI=-1 : RETURN 




150 IF V>5c: THEN YI=0 : X 1=1 5 RETURN 




160 YI=0:XI=0: RETURN 




199 REM REfiD KEYBOARD *** 




200 LI=0 




220 KE*=INKEY*:IF KE*="" THEN RETURN 




£30 IF KE*=KT*(LI) THEN YI=YT (LI ): XI=XT (LI ): RETURN 


240 LI-LI + lsIF LK4 THEN 230 




250 RETURN 




499 REM MfilN LOOP-DRfiW PLAYER CHARACTER 




500 CO=4:RO=0 




510 REM **♦ FOR EXTRA FUN 




520 REM *♦* CRUISE THE CLOCK *♦* 




530 SET (CO, R0,5) 




540 IF F=2 THEN 570 




550 FOR T=l TO 2 




560 NEXT T 




570 IF L=l THEN 2000 ' 




580 RESET (CO, RO) 




590 TI= 1 I+. 3 




600 ON J GOSUB 100,200 




610 RO=RO+XI:CO=CO+YI 




620 IF C0>63 THEN 1000 




630 IF RO<0 THEN RO=0 




640 IF POINT (CO, R0)=3 THEN L=l 




650 PRIWTe25, INT(TI); 




660 GOTO 510 




999 REM COMPLETED MAZE *♦* 




1000 CLS 




1010 FOR T=l TO 100 




1020 PRINT "YOU MADE IT! "; 




1030 FOR D=l TO 10 




1040 NEXT D 




1050 NEXT T 




1060 CLS 




1070 PRINT "YOUR SCORE IS:"INT(TI) 




1080 IF INT(TI)<LS THEN LS=-INT(TI) 




1090 PRINT 




1100 PRINT "THE LOW SCORE iS:"LS 




1110 PRINT 




1120 GOTO 2030 




,1999 REM **♦ RAN INTO TH^E WALL DUMMY *** 




2000 CLS 




2010 PRINT "YOU RAN INTO A WALL!" 
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2020 PRINT 

2030 PRINT "PRESS (ENTER) TO PLOY flGfllN. " 
2040 GOSUB 4000 
£050 RESTORE 

2060 DUM*=INKEY*:IF DUM*<>"" THEN 2060 
2070 GOTO 3130 

2999 REM *♦* INTRODUCTION, THE CURTftIN RISES. . . 

3000 CLS 

3010 PRINT "fiRE YOU USING ft JOYSTICK (Y/N)?" 
3020 J«=INKEY*:IF J*="" THEN 3020 
3030 IF J*="Y" THEN J=1:G0T0 3120 
3040 IF J*<> "Y" THEN J=2 
3050 CLS 

3060 PRINT ^'THE DIRECTION KEYS ARE:" 
3070 PRINT 

3080 PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 
3090 PRINT 

3100 PRINT "PRESS (ENTER) TO BEGIN." 
3110 GOSUB 4000 

3119 REM *** INITIALIZE VftRIfiBLES «♦* 

3120 LS=200 

3130 CLS(0):L=0:YI=0:XI=0:TI=0 

3139 REM *** DRAW LE MAZE PIERRE *** 

3140 READ A,B 

3150 IF A=-l THEN 3200 

3160 FOR CO=A TO B 

3170 PRINTeCO, CHR*( 143+32) ; 

3180 NEXT CO 

3190 GOTO 3140 

3200 READ A,B 

3210 IF A=-l THEN 3260 

3220 FOR RO=A TO B STEP 32 

3230 PRINTi?RO, CHR* ( 143+32) 5 

3240 NEXT RO 

3250 GOTO 3200 

3260 FOR R0=158 TO 318 STEP 32 

3270 READ CH 

3280 PRINT@RO, CHR*(CH); 

3290 NEXT RO 

3299 REM **♦ INITIALIZE DIRECTION VARIABLES »♦♦ 

3300 FOR 1=0 TO 3sREftD KT$(I)!NEXT I 
3310 FOR 1=0 TO 3:READ XT(I):NEXT I 
3320 FOR 1=0 TO 3:READ YT(I):NEXT I 
3330 GOTO 500 

3999 REM WAIT ROUTINE 

4000 INPUT R* 
4010 RETURN 

5000 DATA 4,31,61,63,128,130,149,157,195,197,206,219 

5010 DATA 296,309,315,317,320,322,349,351,357,370,376,379 

5020 DATA 424,437,444,447,480,510,-1,-1 

5030 DATA 0,448,4,68,5,369,104,296,11,235,45,45 

5040 DATA 141,141,79,207,18,146,274,274,85,149 

5050 DATA 245,245,309,437,24,88,216,440,91,91 

5060 DATA 251, 251, 125, 349, 126, 126, 350, 350 

5070 DATA 127,510,-1,-1 

5080 DATA 65,77,65,90,73,78 

5090 DATA J, I,M, L, 0, -1, 1,0, -1,0, 0, 1 
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ii%9"OU iVlwCid III anQ IVIOQCI 4 




1 REM *** AMAZIN TRS-SO MODELS 3 AND 4 CASS. 


OR MODEL 3 DISK BASIC 


10 BOTO 3000 




199 


REM READ KEYBOARD **♦ 




200 


LI=0 




210 


KE*=INKEY* 




220 


IF KE*="" THEN RETURN 




230 


IF KE*=KT*(LI> THEN YI=YT (LI ) : X I=XT (LI ) : 


RETURN 


240 


LI=LI+1 




250 


IF LK4 THEN 230 




260 


RETURN 




499 


REM MAIN LOOP-^DRAW PLAYER CHARACTER 




500 


C0==5 




510 


R0=0 




520 


SET (CO,RO) 




540 


■MM jm\ MM MM* m MM MM MM 

FOR T=l TO 2 




550 


NEXT T 




560 


Y r*** 1 J MM* 1 t fMM • * MM M. 

IF L=l THEN 2U0U 




570 


RESET (COjRO) 




580 


TI-TI+.2 • 




590 


/M* MM MM g • MM. MM M M 

GOSUB 2UU 




600 


f~*, /M« MM MM MM MM MM MM . « M. 

RO=RO+Y I : CO=CO+X I 




610 


IF C0>127 THEN 1000 




620 


V 1**^ 1**^ •* «**. MM* t ■ MM* «. a M* MM M 

IF RO-CO THEN RO=U 




630 


IF POINT (CO,RO) THEN L=l 




640 


PRINT@56, INT (TI ) 5 




650 


GOTO 520 




999 


REM COMPLETED MAZE 




1 000 


CLS 




1010 


t^M am% ML MM J CMM M** m _M .M. 

FOR T=l TO lOU 




1020 


PRINT "YOU MADE IT! "5 




1 030 


FOR D=l TO 10 




1U4U 


NEXT D 




1 050 


NEXT T 




1 U6U 


CLS 




1070 


PRINT "YOUR SCORE IS:"INT(TI) 




1080 


IF INT (TI XLS THEN LS=INT(TI) 




1 090 


PRINT 




1 1 00 


PRINT "THE LOW SCORE IS: "LS 




1110 


PRINT 




1 1 20 


GOTO 2030 




1999 


REM RAN INTO A WALL 




2000 


CLS 




20 1 


PRINT "YOU RAN INTO A WALL!" 




2020 


PRINT 




2030 


PRINT "PRESS (ENTER) TO PLAY AGAIN. " 




2040 


GOSUB 4000 




2050 


RESTORE 




.2070 


GOTO 3130 




2999 


REM INTRODUCTION *** 




3000 


CLS 




3060 


PRINT "THE DIRECTION KEYS ARE:" 




3070 


PRINT 




3080 


PRINT "I=UP M=DOWN J=LEFT L=?RIGHT" 




3090 


PRINT 




3 1 00 


PRINT "PRESS (ENTER) TO BEGIN." 




3110 


GOSUB 4000 




3119 


REM *** INITIALIZE VARIABLES 
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3120 
3130 
3139 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3299 
3300 
33 1 
3320 
3330 
3999 
4000 
4010 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5115 
5120 
5130 
5140 



XI*0:TI=0 
MAZE *** 



LS=999 

cls:l=o: Yi=o 

REM *** DRAW 
READ A,B 

IF A=-i THEN 3200 
FOR CO=A TO B 
PR I NTilCO , CHR* (191); 
NEXT CO 
GOTO 3140 
READ A,B 

IF A=-i THEN 3260 
FOR RO=A TO B STEP 
PR I NTQRO , CHR* (191); 
NEXT RO 
GOTO 3200 

FOR R0=317 TO 639 STEP 
READ CH 

PRINTQRO, CHR* (CH) ; 
NEXT RO 

LOAD 
TO 3 
TO 3 
TO 3 
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REM 
FOR 
FOR 
FOR 
GOTO 



♦** 

1=0 
1=0 
1=0 
500 
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DIRECTION VARIABLES *** 
READ KT* ( I ) : NEXT I 
READ XT(I) :NEXT I 
READ YT(I) :NEXT I 



REM *** WAIT 
INPUT R* 
RETURN 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



ROUTINE *** 



4,63,68,71, 120, 127, 141, 1 
221,225,252,255 
361,379,449,450 
513,521,528,528 
595,601,503,509 
654,656,668,671 
847,850,912,915 
0,960,83,467,84 
701 , 765, 702, 766 
96,96,99,99,423 
858,922,797,861 
255,959,318,638 
65,77,65,90,73,78 
M,I,J,L 

0. 0,-1,1 

1, -1,0,0 



192,2 



292,297, 


325, 


•JO -J 


460,461, 


464, 


468 


536,537, 


548, 


552 


604, 609, 


612, 


617 


699, 700, 


709, 


744 


863,872, 


880, 


887 


468, 152, 


408, 


165 


775,775, 


841, 


905 


423, 105, 


169, 


112 


874,874, 


180, 


308 


-1,-1 







203 , 205 , 
38, 40, 3 
472,499 
570,572 
619, 630 
752,756 
891,894 
229,91, 
780,844 
240, 173 
184,248 



207 

52,357 
, 502 , 507 



,584 
•I 633 
,759 
, 960 
347, 
, 790 



586,591,592 
635,645,645 
764 

1022,-1,-1 
157, 157,836,900 
854,857,921 
684, 876, 789, 85v 
700,63, 127 



VIC-£lZi **♦ 



VIC-20 

i REM *♦♦ OMAZIN' 
10 SOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 POKE 37154, 1£7 

110 XT%=PEEK(3715£)flND12a 
120 POKE 37154,255 

130 XT54=XT-/C OR (PEEK (37137) flND127) 
140 XI=S6N(XT%flNDi£a)-SGN(XT?ifiND16) 
150 YI=SBN ( XT^tflNDS) -SGN (XT-XftND4) 
160 RETURN 

199 REM **♦ REfiD KEYBOARD ROUTINE »** 

200 XI=05YI=0:LI=0 

£10 GET KE*sIF KE*=""TH£N RETURN 

220 IF KE*=KT*(LI)THEN YI=YT (LI ) s XI=XT (LI ): RETURN 
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£30 LI=LI+1:IF LI <4 THEN £20 
£40 RETURN 

499 REM MfilN LOOP-DRfiW PLfiYER *♦♦ 

500 H1=3:H£=0 
510 CO=2:RO=0:L=0 

5£0 T I *=" 000000" 

530 IF C0>£1 THEN 1000 
540 IF RO<0 THEN RO=0 
550 POKE CB+H1+££*H£,£ 
560 POKE CB+CO+££*RO, 
570 POKE SB+CO+££*RO, 81 
580 IF L=i60 THEN £000 
590 H1=C0:H£=R0 
600 ON J GOSUB 100, £00 
610 RO=RO-YI:CO=CO-XI 
6£0 L=PEEK (SB+CO+££*RO) 

630 PRINT CHR*(ig)CHR*(159)TflB(18)RIGHT*(TI*, 3> 
640 GOTO 530 

999 REM COMPLETED MAZE ♦** 

1000 PRINT CHR*(147) :WH*=TI* 
1010 FOR T=l TO 100 

10£0 PRINT" YOU MODE IT! 

1030 POKE 36879, INT(RND(l)*7)+8 

1040 NEXT T 

i0j50 POKE 36879, £37 

1060 if" VfiL<RIGHT*<WH*,3) ) <VftL<LS*)T'HEN LS*=RIGHT* (WH*, 3) 

1070 PRINT CHR*(147)CHR*<144> 

1080 PRINT "YOUR SCORE IS: "RIGHT* (WH*, 3) 

1090 PRINT 

1100 PRINT "THE LOW SCORE IS:"LS* 
1110 PRINT 
11£0 GOTO £030 

1999 REM *** RftN INTO WALL ♦** 
£000 PRINT CHR*(147)CHR*(144) 
£010 PRINT "YOU RAN INTO A WALL!" 
£0£0 PRINT 

£030 PRINT "(SHIFT) TO PLAY AGAIN" 
£040 GOSUB 4000 
£050 RESTORE 

£060 GET DUM*:IF DUM*<>""THEN £060 

£070 GOTO 31£0 

£999 REM INTRODUCTION *** 

3000 PRINT CHR*(147) 

3010 PRINT "USING A JOYSTICK (Y/N) " 
30£0 GET J*! IF J*=""THEN 30£0 
3030 IF J*="Y" THEN J=i:GOTO 31£0 
3040 IF J*=<>"Y" THEN J=£ 
3050 PRINT CHR*(147) 

3060 PRINT "THE DIRECTION KEYS ARE" 
3070 PRINT 

3080 PRINT "I=UP M=DOWN" 

3090 PRINT "J=LEFT L=RIGHT" 

3100 PRINT: PRINT "PRESS (SHIFT) TO BEGIN" 

3110 GOSUB 4000 

3119 REM INITIALIZE VARIABLES *♦* 

31£0 SB=7680:CB=38400:LS*="£00" 
3130 POKE 36879, 46: POKE 650, 1 £8 

3139 REM *** DRAW MAZE *** 

3140 PRINT CHR*(147) 
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3150 READ CO,PI, B 

3160 IF C0=-1 THEN 3220 

3170 FOR RO=fl TO B 

3180 POKE SB+C0+2£*R0, 160 

3190 POKE CB+C0+£2*R0, 1 

3200 NEXT RO 

3210 GOTO 3150 

3220 READ RO, A, B 

3230 IF R0=-1 THEN 3380 

3240- FOR CO=fl TO B 

3250 POKE SB+C0+22*R0, 160 

3260 POKE CB+C0+22*R0, 1 

3270 NEXT CO 

3280 GOTO 3220 

3380 READ RO, CO, CH, 

3390 IF R0=-1 THEN 3440 

3400 POKE SB+C0+£2*R0, CH 

3410 POKE CB+C0+22*R0, Q 

3420 PRINT CHR*(144) 

3430 GOTO 3380 

3439 REM *** INITIALIZE DIRECTION VARIABLES *♦* 

3440 FOR 1=0 TO 3: READ KT*(I):NEXT 
3450 FOR 1=0 TO 3:READ XT(I):NEXT 
3460 FOR. 1=0 TO 3: READ YT(I):NEXT 
3470 GOTO 500 

3999 REM ♦♦♦ WAIT ROUTINE **♦ 

4000 WAIT 653, 1 
4010 WAIT 653, 1,1 
4020 RETURN 

5000 DATA .0, 0,22, 3, 15, 19,4,0,2,5,®, 16,8,3, 14 

5010 DATA 11, 1,9, 14,2,6, 14,9, 12, 16, 12, 16, 18,3, 10 

5020 DATA 18,16,17,21,0,1,21,3,22,-1,-1,-1 

5030 DATA 0, 4, 17, 1, 17, £1,2, 14," 15, 3, 18, 21, 4, 17, 17, 5, 0, 3 

5040 DATA 6, 15, 16, a, 3, 5,9, 14, 17, 10, 18, £1, 12, 1,2, 12, 11, 14 

5050 DATA 14, 8, 18, 15, 3, 4, 16, 3, 13, 18, 16, 16, 19, 7, 16, £0, 19, 20 

5060 DATA £2,0,21,-1,-1,-1 

5070 DATA 4, 19, 1, 1, 4, £0, 81, 7, 5, 19, 81, 3, 5, £0, 13, 1, 6, 19, 1, 1 
5080 DATA 6, £0,81,4, 7, 19, 81,5, 7, £0, £6, 1,8, 19, 9, 1,8, £0,81,6 
5090 DATA 9, 19, 81, 7,9, £0, 14, 1,-1,-1,-1,-1 
5100 DATA M,L, J, 1,0, -1,1,0, -1,0, 0,1 



READY. 
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10 AWESOME PROGRAMS FROM K-POWER 



BONUS PROGRAM #2 




POISON ivy 




POISON IVY is a game that helps you. learn how to ge^t out 


of a variety o-f sticky situations in a hurry » You 


begi n 


the game stuck in a POISON IVY patch a The only wa 


y out i s 


to go all the way o-f-f the right side of the screen 


be-fore 


the blooming POISON IVY traps you, making escape 




impossible- When you touch POISON IVY^ you iose« 


Each 


time you make it to the right side of the screen, 


the game 


restarts, becomes harder, and puts you at the left 


side of 


the screen « You use joystick or keyboard to control your 


direction.! 




ADAM 




1 REM *** POISON IVY ADAM *** 




10 GOTO 3000 




199 REM read keyboard routine *** 




200 xi = 0: yi = 0: li = 




210 (tET ke$ 




c.c\j Jul. t\)0\j \ sx.\^*\) J — \ xxiiL/iM J ~" 1 • ri jZi ± u rii^ 




T"P A Rn f Trpffi - T'TT'RIVT - 1 • ■RTTT'TTPTVT 
c-y\j JL± xwokj \ xs.^<\) J — \ yj \ J. xi-i-»i>j ^ JL — 1 « rui/ i. u r\jA 




9 AC) TTH ARnfVpS'l - T'TTTPM vi - 1 • PT^^T'TTPAT 








rijhr'i Qraw ivy 




400 X = INT(RND(1 )^39) 




410 y = INT(RND(1 )^39) 




420 IF X = AND y = 11 THEN 400 




430 IF X = 1 AND y = 1 1 THEN 400 




440 COLOR = 6 




450 PLOT X, y 




460 RETURN 




499 REM mam loop-draw player character 




pUO CO = : ro = 1 1 : 1 = 








520 PLOT GO ro 




5*50 IP 1 = 1 TTTTn¥ ponn 

^ -!--»■ — 1 J-IlJlllN C.\J\J\J 




540 GO SUB 2'00 




550 ro = ro+yi: oo = co+xi 




560 IP ro > 39 THEN ro = 39 




570 IP ro < THEN ro = 




580 IP CO < THEN co = 




590 IP CO > 39 THEN 1000 




600 IP SCRN(co, ro) = 6 THEN 1=1 




610 COLOR = 




620 PLOT co-xi, ro-yi 




630 X = x+1 




640 IP x/6 = INT(x/6) THEN GOSUB 400 




650 GOTO 510 




999 REM *** successfully completed maze *** 




1000 TEXT: HOME 




1010 POR t = 1 TO 100 




1020 PRINT "YOCJ MADE IT! 




1040 NEXT t 
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1060 s = 3+1 : IF s > hs THEN hs = s 
1070 di = di+50 
1080 HOME 

1100 PRINT "Your score is: "; s 
1110 PRINT 

1120 PRINT "The high score is: "; hs 
1130 PRINT 
1140 GOTO 2080 

1999 REM *** lose game *** 

2000 TEXT: HOME 

2010 PRINT "YOU lOSE," 

2015 PRINT "You have POISON IVY!" 

2020 PRINT 

2030 PRINT "Your final score is: "; s 
2040 PRINT 

2050 PRINT "Your high score is: "; hs 
2060 PRINT 
2070 s = 

2080 PRINT "Press any key to play again." 
2110 GET dum$ 
2130 GOTO 3060 

2999 REM introduction *** . 

3000 HOME 

3010 PRINT TAB(8); "POISON IVY!" 
3020 PRINT 

3030 PRINT "Press any key to begin." 
3040 GET n$ 

3049 REM *** display screen *** 

3050 di = 175 
3060 GR 

3070 FOR t = 1 TO di 
3080 GOSUB 400 
3090 NEXT t 
3100 GOTO 500 

Apple II and Apple lie 

1 REM *•«•* POISON IVY APPLE •»** 
10 GOTO 3000 

99 REM »*•» JOYSTICK ROUTINE *** 

100 IF PDL <1) < 64 'THEN YI = -Is BOTO 150 
110 IF PDL (1) > 192 THEN YI = is GOTO 150 
120 YI = 

150 IF PDL <0) < 64 THEN XI = - Is GOTO 190 
160 IF PDL (0) > 192 THEN XI = la GOTO 190 
170 XI = 
190 LI == OS RETURN 

199 REM •»•«••«• READ KEYBOARD ROUTINE **# 

200 X I = 5 Y I = s L I O 

210 KE = PEEK < - 16384) s POKE - 16368,0 
220 IF KE < 128 THEN GOTO 250 

230 IF CHRt- (KE - 128) = KTf<LI) THEN YI = YTCLDsXI = XT(LI)s RETURN 
240 LI = LI + Is IF LI < 8 THEN 230 
250 RETURN 

399 F:EM *** DRAW IVY *** 

400 X = INT ( RND (0) * 39) 
410 Y = INT ( RND <1) * 47) 

420 IF X == AND Y = 1 1 THEN 400 
430 IF X = 1 AND Y = 11 THEN 400 
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10 AWESOME PROGRAMS FROM K-POWER 



440 COLOR= 12 

450 PLOT X,Y 

460 RETURN 

499 REM **« MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 CO = OsRO = 11:L = 
510 COLOR= 11 

520 PLOT CO,RO 

530 IF L = 1 THEN 2000 

540 ON J GOSUB 100,200 

550 RO = RO + YI:CO = CO + XI 

560 IF RO > 47 THEN RO =47 

570 IF RO < O THEN RO « 

580 IF CO < THEN CO = 

590 IF CO > 39 THEN 1000 

600 IF SCRN< CO,RO) == 12 THEN L = 1 

610 COLOR= 

620 PLOT CO ~ XI,F^•0 - YI 

630 X = X + 1 

640 IFX/6== INT<X/6) THEN BOSUB .400 

650 GOTO 510 

999 REM ■**# SUCCESSFULLY COMPLETED MAZE*.** 

1000 TEXT s HOME 
1010 FOR T = 1 TO 100 

1020 PRINT "YOU MADE IT! "; 

1040 NEXT T ^ 

1060 S S + l5 IF S > HS THEN HS = S 

1070 DI = DI + 50 

1080 HOME 

1100 PRINT "YOUR SCORE IS: "S 
1110 PRINT 

1120 PRINT "THE HIGH SCORE ISs "HS 
1130 PRINT 

1140 GOTO 2080 

1999 REM *** LOSE GAME **» 

2000 TEXT s HOME 

2010 PRINT "YOU LOSE. YOU HAVE POISON IVY!" 

2020 PRINT 

2030 PRINT "YOUR FINAL SCORE ISs "S 

2040 PRINT 

2050 PRINT "THE HIGH SCORE ISs "HS 

2060 PRINT 

2070 S = 

20B0 PRINT "PRESS ANY KEY TO PLAY AGAIN." 

2100 IF PEEK ( - 16368)- > 127 THEN 2100 

2110 GET DUM* 

2130 HOME 5 RESTORE 

2140 GOTO 3150 

2999 REM *** INTRODUCTION *** 

3000 HOME 

3010 PRINT " ARE YOU USING A JOYSTICK (Y/N)?' 

3020 GET J* 

3O30 IF J* = "Y" THEN J = Is GOTO 3140 
3040 IF J* < > "Y" THEN J = 2 

3050 HOME 

3060 PRINT "THE MOTION KEYS ARE: " 

3070 PRINT 

3080 PRINT TAB( 6) "U I 0" 

3090 PRINT TABC 6) "J L" 

3100 PRINT TAB( 6) "M , ." 
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10 AWESOME PROGRAMS FROM K-POWER 



PRINT 

PRINT "PRESS ANY KEY TO BEGIN." 
GET m 

DIM KT:$:(7) ,XT(7) ,YT(7) sDI 175 

REM ENTER FULL LO-RES GRAPHICS SCREEN 

GR : POKE - 16302,0s CALL - 1998 

REM INITIALIZE DIRECTION VARIABLES 

FOR I = TO 7s READ KTt- ( I ) s NEXT 

FOR I = O TO 7s READ XT(I)s NEXT 

FOR I = O TO 7g READ YT ( I ) s NEXT 

FOR T = 1 TO DI 

GOSUB 400 

NEXT T 

GOTO 500 

DATA % % "» " ,L,0, I ,U,J,M 
DATA 0,1,1,1,0,-1,-1,-1 
DATA 1,1,0,-1,-1,-1,0,1 



1 REM -^'^-^ POISON' IVY ATARI 

10 DIM R:$:(l) , J^(l) ,J (10) ,B(10) ,XT(10) .YTCIO) 
20 GOTO 3000 

99 REM JOYSriEK ROUTINE 

1 (X) L I s Y I -^0 5 X I •'••0 
no JV:^:^:STICK(0) 

120 IF JV=^J<LI) THEN YI-YT (LI ) s XI-XT (LI > s RETURN 

130 LI^:^LI-+-i 

140 IF LK8 THEN 120 

150 X I =^^03 Y 1^0 

160 RETURN 

199 REM KEYBOARD ROUTINE -^-^-^ 

200 X I --O s Y I -O s L I "0 
210 K=^^PEEK(764) 

220 IF .K^255 THEN 210 

230 I F K^^^B (LI) THEN Y I Y T ( L I ) s X I =^ X T ( L I ) s RETURN 

240 LI^LI+1 

250 IF LKB THEN 230 

260 RETURN 

400 X :^^[ N T ( RND ( 1 ) •J^40 ) 

410 Y'^:=INT (RND ( 1 ) ^^24) 

420 IF X=^0 AND Y^^^ll THEN 400 

430 IF X^l AND Y^^ll THEN 400 

440 COLOR .2 

450 PLOT X.V 

460 RETURN 

499 REM MAIN LOOP-DRAW PLAYER CHARACTER -^-^-^ 

500 C0=^0 5R0^11 sL=^=0 
510 Hl=::=0s H2=^l 1 
520 COLOR O 

530 PLOT HI J-i2 

540 COLOR 1 

550 PLOT CO,RO 

560 IF L=^l THEN 2000 

570 Hl^^C0s H2!=^R0 

580 ON J GOSUB 100,200 

590 RO-RO -I- Y I s CO=^^=CO +- X I 

600 IF R0>23 THEN RQ:^:23 

610 IF R0<0 THEN RG^^^O 

620 IF C0<0 THEN CQ=^0 



3110 
3120 
3130 
3140 
3149 
3150 
3159 
3160 
3170 
3180 
3190 
3200 
32 1 
3220 
5000 
5010 
5020 

Atari 
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630 
640 
650 
660 
670 
680 
690 
999 
1000 
1010 
1020 
1030 
1040 
1050 
1 060 
1070 
1080 
1 090 
1100 
1110 
1999 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2090 
2 1 00 
1110 
!120 
:130 
2999 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
159 
3 1 60 
3170 
3179 
3180 
3190 
3i200 
3210 
220 
3230 



IF C0>39 THEN 1000 
LOCATE C(3.R0,C 
IF C=2 THEN L^^l 
Z = Z4.1 

IF Z/3=:-INT(Z/3) THEN GOSUB 400 
POKE 764,255 
GOTO 520 

REN -s-^-x- COMPLETED NAZE 
GRAPHICS 
FOR T^^l TO 100 
PRINT "YOU NADE IT! ! ! "5 
NEXT T 

PRINT CHR*(125) 
S-S-M§IF S>HS THEN HS'-^S 
D 1:^-0 1 +-50 

PRINT "YOUR SCORE ISs^sS 
PRINT 

PR I N T' " THE H I GH SCORE I S s " 3 HS 
PRINT 
GOTO 2090 

REN ^^-^ HA HA POISON IVY 
GRAPHICS 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
S=^0 
PRINT 
GOSUB 



YOU HAVE POISON IVY! YOU LOSE. 



VOUR FINAL SCORE ISs"sS 



"THE HIGH SCORE ISs";HS 



< RE TURN > TO PLAY REVERSE. 



"PRESS 
4000 
RESTORE 

PRINT CHR:$:(125) 
GOTO 3170 

REN '^-^^ INTRODUCTION ^-'f^-^ 
PRINT CHR:t<125) 

"TYPE VOUR ANSWER 



PRINT 
PRINT 
IHPUT 
IF J:$:= 



THEN PRESS < RETURN > 



YOU USING A JOYSTICK (Y/N) 



3 1 30 



"ARE 

"V" THEN J-lsGOTO 
IF J:$:<>"Y" THEN J =^2 
PRINT "THE NOTION KEYS AREs 
U I 0" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 
REN ^ 
DI:=:^125 

GRAPHICS 3+16 



L" 



"PRESS 

CHRf^<125: 
INITIAL 



::return> to begin. 



IZE screen AND SCORE VARIABLES -H"^^- 



REN 
FOR 
FOR 
FOR 
FOR 
FOR 



I==0 
I=:^0 



LOAD 
TO 7 
TO 
TO 
TO 
TO 



7s 
7 1; 
7k 
DI 



MOTION 
READ G 
READ 
READ 
READ 



ARRAYS 

J<I)=^GsNEXT I 
B(I)^BsNEXT I 
X?XT(I):=::XsNEXT I 
Ys YT(I)^=:YgNEXT I 



B 



GOSUB 400 
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3240 NEXT T 
3250 GOTO 500 
4000 INPUT R* 
4010 RETURN 

5000 DATA 10,14,6,11,7,9,1.3,5 
5010 DATA 11,13,8,1,0,37,32,34 
5020 DATA -1,0,1,-1,1,-1,0,1 
5030 DATA -1,-1,-1,0,0,1,1,1 

Commodore 64 

1 REM *»* POISON IVY 6 A **♦ 
10 60T0 31900 

99 REM ♦♦* JOYSTICK ROUTINE 

100 XI=0:YI=0:LI=0 
110 JV= PEEK (56321) 
120 JV=15-(JVfiND15) 

130 IF JV=JS(LI)THEN YI=YT (LI ): X I=XT (LI ): RETURN 
140 LI=LI + 1:IF LK10 THEN 130 
150 X 1=0 :YI=0: RETURN 

199 REM *♦* READ KEYBOARD ROUTINE ♦** 
£00 XI=0:YI=0:LI=0 
210 GET KE* 

220 IF KE$=""THEN RETURN 

230 IF KE*=KT*(LI) THEN YI=YT (LI ): XI=XT (LI ): RETURN 
240 LI=LI+1:IFLI <8 THEN 230 
250 RETURN 

399 REM DRAW IVY 

400 X=INT(RND(0)»39) 
410 Y=INT(RND(1)*25) 

420 IF X=0 AND Y=ll THEN 400 
430 IF X=l AND Y=ll THEN 400 
440 POKE SB+X+40*Y, 88 
450 POKE CB+X+40*Y, 5 
460 RETURN 

499 REM *** MAIN LOOP-DRAW PLAYER CHARACTER 

500 CO=0:RO=11:L=0 

510 POKE CB+H 1 +40*H2 ,11 

520 POKE CB+CO+40«RO, 

530 POKE SB+CO+40*RO, 86 

540 IF L=l THEN 2000 

550 H1=C0:H2=R0 

560 ON J GOSUB 100,20® 

570 RO=RO+YI:CO=CO+XI 

580 IF R0>24 THEN R0=24 

590 IF RO<0 THEN RO=0 

600 IF CO<0 THEN CO=0 

610 IF C0>39 THEN 1000 

620 IF PEEK(SB+CO+40*RO)=a8 THEN L=l 

630 X=X+1 

640 IF X/6=INT(X/6)THEN GOSUB 400 
650 GOTO 510 

999 REM **♦ SUCCESSFULLY COMPLETED MAZE **♦ 

1000 PRINT CHR*(147) 
1010 FOR T=l TO 100 
1020 PRINT "YOU MADE IT! 

1030 POKE 53280, INT (RND(1)*16)+1 
1050 NEXT T 

1060 S=S+1:IF S>HS THEN HS=S 
1070 DI=DI+50 
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1080 

1090 
1100 
1110 

1120 
1130 
1140 
1999 
£000 

2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2100 

2110 
2120 
2130 
2140 
2999 

3000 
3010 

3020 
3030 
3040 
3050 
3080 
3070 
3080 
3090 

3100 

3110 
3120 
3130 
3140 
3159 
3160 
3170 
3179 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3999 

4000 
4010 

4020 

5000 
3010 

d020 
5030 



IS:"S 



PRINT CHR*(147) 
POKE 53261, 11 
PRINT "YOUR SCORE 
PRINT 

PRINT "THE HIGH SCORE 
PRINT 
GOTO 2080 

REM ♦♦* LOSE BflME *** 
PRINT CHR*(147) 

"YOU LOSE, YOU HftVE 



IS:"HS 



POISON IVY! 



"YOUR FINftL SCORE IS:"S 



"THE HIGH SCORE IS s"HS 



"PRESS 

4000 



(SHIFT) TO PLAY fiGfllN. 



>110 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

S=0 

PRINT 
GOSUB 
RESTORE 
GET DUM* 
IF DUM* <> ""THEN 
PRINT CHR$(147) 
GOTO 3170 

REM **♦ INTRODUCTION 
PRINT CHR*(147) 

PRINT " ORE YOU USING fl JOYSTICK (Y/N) ?" 
GET J*: IF J*=""THEN 3020 
IF J*="Y"THEN J=1:B0T0 3140 
IF J«<> "Y"THEN J=2 
PRINT CHR*(147) 
PRINT "THE MOTION KEYS ARE:" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 



T0B(6) "U 
TAB (6) "J 
TAB (6) "M 



0" 

L" 



"PLEASE PRESS (SHIFT) TO BEGIN. " 

4000 

CHR*(147) 

REM INITIALIZE SCREEN AND SCORE VARIABLES ♦*# 

SB= 1 024 : CB=55296 : D r= 1 25 

POKE 53280, 9: POKE 53281, 1 1 : POKE650, 128 



REM 
FOR 
FOR 
FOR 
FOR 
FOR 



INITIALIZE DIRECTION ARRAYS 
TO 7: READ KT* ( I ) sNEXT 
XT(I) -.NEXT 
YT(I) :NEXT 
JS(I) :NEXT 



TO 
TO 
TO 
TO 



7! READ 
7: READ 
7; READ 
DI 



1=0 
1=0 
1=0 
1=0 

T=l 
GOSUB 400 
NEXT T 
GOTO 500 

REM *** WAIT ROUTINE *** 
WAIT 653, 1 
WAIT 653, 1,1 
RETURN 

DATA ", ", ". ",L, 0, I,U, J,M 
DATA 0, 1, 1, 1,0, -1,-1, -1 
DATA 1,1,0,-1,-1,-1,0,1 
DATA 2, 10,8, 9, 1,5,4,6 
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IBMK 

10 REM «** POISON IVY IBM--PC *** 
20 KEY OFF 
30 GOTO 680 

40 REM *** READ KEYBOARD ROUTINE «** 

50 Ll==0s XI=05 YI=0 

60 KE*=INKEY* 

70 IF KE*="" THEN RETURN 

80 IF KE*=KT*(LI) THEN YI=YT <LI ): XI=XT (LI ) s RETURN 
90 LI=LI + l!lF LK8 THEN 80 
100 RETURN 

110 REM **« DRAW POISON IVY **« 

120 X=INT(RND<1)*79)+1 

130 Y=INT<RND(1)*24)+1 

140 IF X=l AND Y=li THEN 120 

150 IF X=2 AND Y=ll THEN 120 

160 LOCATE Y,X,0 

170 PRINT CHR*(5) ; 

180 RETURN 

190 C0='lsR0===llsL=0sHl = ilsH2=l 

200 LOCATE HI ,H2,0 

210 PRINT CHR*(32) 5 

220 LOCATE RO,CO,0 

230 PRINT CHR*(2) 5 

240 Hl=RasH2=C0 

250 IF L=l THEN 520 

260 GOSUB 50 

270 RO=RO+YI s CO=CO+X I 

280 IF R0>24 THEN R0=24 

290 IF R0<1 THEN R0=1 

300 IF C0<1 THEN C0=1 

310 IF C0>79 THEN 380 

320 ONSCREEN ( RO , CO ) 

330 IF Q=5 THEN L=l 

340 X=X+1 

350 IF X/6=-INT(X/6> THEN GOSUB 120 
360 GOTO 200 

370 REM SUCCESSFULLY COMPLETED MAZE 

380 CLS 

390 FOR T=l TO 30 

400 PRINT TAB (33) 5 "YOU MADE IT ! ! ! " 
410 NEXT T 
420 S==S+1 

430 IF S>HS THEN HS=S 
440 DI=DI+50 
450 CLS 

460 PRINT "YOUR SCORE IS5";S 
470 PRINT 

480 PRINT "THE HIGH SCORE IS5"5HS 
490 PRINT 
500 GOTO 600 

510 REM #** LOSE GAME *** 
520 CLS 

530 PRINT "YOU HAVE POISON IVY! YOU LOSE," 
540 PRINT 

550 PRINT "YOUR FINAL SCORE IS3"fS 
560 PRINT 

570 PRINT "THE HIGH SCORE ISs";HS 
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580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
7^00 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
1000 
1010 
1020 
2000 
2010 
2020 



PRINT 
8=^0 

PRINT "PRESS < ENTER > TO PLAY AGAIN „ 
GOSUB 1000 
RESTORE 
DUM:$:^INKEY:$- 
IF DUN*<>""THEN 630 
CLS 

GOTO 800 

REM. INTRODUCTION -^-^'^ 

SCREEN Oh 0,0s WIDTH 80 
CLS 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
CLS 

01^^25 
FOR I^^-^O 
FOR I-=:0 
FOR 1=^0 
FOR V^-l 



"THE DIRECTION KEYS AREs 



U 
N 



0" 
L" 



"PRESS 
1000 



< ENTER > TO BEGIN« 



KTf <I) sNEXT I 
XT (I) sNEXT I 
YT(I) sNEXT I 



TO 7 s READ 
TO 7 s READ 
TO 7 s READ 
TO DI 
GOSUB 120 
NEXT T 
GOTO 190 

IF Rdi:<>CHR*(13) 
RETURN 

DATA " , " , " „ " ,L,0, I ,U, J ,N 
DATA 
DATA 1, 



THEN 1000 



o,i,i,i,o,-iv-ir-i 



1,0,-1, -1,-1, 0,1 



TI-99/4A 



T HEM 



1 REN ^-^^ POISON 

10 GOTO 960 

19 REN ^^-^ JOySI ICK 

20 CALL aOYST ( 1 ,N,N) 
30 XI:-0 

40 YI-=0 

50 Ll^-nj 

60 IF H^^^Jl (LI ) 

70 IF. N^^4:: I (LI ) 

8u xr^^^^x r <L1 ) 

90 YI^XV (LI ) 
100 RETURN 
110 L1:-=LH-1 
120 IF LKB 
130 XI^O 
140 rl=^^0 
150 RETURN 
160 Xl^O 

169 REN ->^-K-K- 

170 Yl-:^0 
180 LI=^0 
190 CALL KEY ( 



IVY TI99/4A 



ROUTINE 



70 
SO 



ELSE 
E1...SE 



1 10 
I i 



THEN 



KEYBOARD F'i!OUTINE -^-^-^ 



,K..P) 
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10 AWESOME PROGRAMS FROM K-POWER 



200 Z=Z+i 

210 IF 2/2--:=INT(Z/2) THEN 220 ELSE 230 
220 GOSUB 330 

230 IF P=:0 THEN 190 ^ 

240 IF H:>B(H)THEN 250 ELSE 280 

250 XI=-XT(LI) 

260 YI=XY(LI) 

270 RETURN 

280 LI=LI+1 

290 IF LK8 THEN 240 

300 XI=0 

310 YI=0 

320 RETURN 

329 REN DRAW IVY ROUTINE 

330 C=INT(RND*32)-+-1 
340 R=:::INT(RND-J«-24)+l 

350 IF R==12 THEN 360 ELSE 370 
360 IF C=3 THEN 330 
370 CALL HCHAR(R„C, 136) 
380 RETURN 

389 REN ^-^'^ MAIN LOOP/ DRAW PLAYER J^*-^ 

390 Hl:^12 
400 H2=3 
410 R0=12 

420 C0::^3 

430 L==0 

440 CALL HCHAR<H1 ,H2, 128) 
450 CALL HCHAR(RO,CO, 120) 
460 IF L=l THEN 830 
470 H1=:^R0 
480 H2=:C0 
490 Z^Z^'l 

500 ON J GOSUB 20,160 
510 R0^=:R0+XI 
520 CO=^CO"t-Y l 

529 REN DEFINE BOUNDARIES 

530 IF R0<1 THEN 540 ELSE 550 
540 RO-^1 

550 IF R0>24 THEN 560 ELSE 570 
560 R0=^=24 

570 IF C0<2 THEN 580 ELSE 590 
580 CG-2 

590 IF C0>32 THEN 660 

600 CALL GCHAR(f^O,CO,D) 

610 IF D=:^136 TIIEN 620 ELSE 630 

620 L^l 

630 IF Z / 4::=: INT (Z/ 4) THEN 640 ELSE 650 
640 GOSUB :::>30 
650 GOTO 440 

659 REN COMPi..ElED NAZE -^-yr-^ 

660 CALL SCREEN (12) 
670 CAL.L CLEAR 

680 FOR T=l TO 25 

690 PRINT " YOU NADE IT!!!" 

700 PRINT 
710 NEXT r 
720 8^=^8+1 
730 DI=^DI+35 

740 IF S>HS THEH 750 ELSE 760 
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10 AWESOME PROGRAMS FROM K-POWER 

750 HS=S 

760 PRINT 

770 PRINT "YOUR SCORE IS!";S 

780 PRINT 

790 PRINT "THE HI6H SCORE IS5"!HS 

800 PRINT 

810 GOTO 910 

829 REM *** LOSE ROUTINE *** 

830 CALL SCREEN (9) 
840 CALL CLEAR 

850 PRINT "YOU HAVE POISON IVY." 

860 PRINT 

8 70 PR I NT " Y OUR F I N AL SCORE I S s " 5 S 

880 PRINT 

890 PRINT "THE HIGH SCORE ISs"5HS 

900 S-'O 

910 PRINI" 

920 PRINT "PRESS (ENTER) TO PLAY AGAIN." 

930 GOSUB 1390 

940 RESTORE 

950 GOT 1 1 70 

959 REM *** INTRODUCTION 

960 CALL CLEAR 

970 PRINT "TYPE YOUR ANSWER" 

980 PRINT "THEN PRESS (ENTER) o " 

990 PRINT 





PR T M T " APP vni f 1 T Wt"l 
r r\ .1 PI 1 i" in-. L« » Uwj j. 






1 NPI I T 1 




X \J .C 


J. I •—•CI.t.J T'' \ »J 4 i H i / » 


1 ric-ri riL^Dc. av'-j'J 




.1 1 
\j — • .1. 




1040 


GOIG 1120 




1050 






1060 


Cf \LL CLEAR 




1 70 


PRIMT " THE or RECTI ON 


KEYS ARE; " 


1 080 


PRINT 




1090 


PRINT" TAB<7) 5 "U I 


D" 


1100 


PRINT TAB<7) 5 "0 


L" 


1110 


PRINT TAB (7) 3 "N , 




1 1 20 


PRINT 




1 1 30 


PRINT "PRESS (ENTER) 


TO BEGIN. " 


1 1 40 


PRINT 




1150 


60SUB 1 380 




1159 


REM INITIALIZE 


VARIABLES AND ARRAYS -^-^-k- 


1160 






1 1 70 


CALL SCREEN <2> 




1180 


CALL c;lear 




1 1 90 


POR i-0 10 7 




1200 


READ XYd:- 




1210 


READ KT(I> 




1220 


READ J I (I ^ 




12 30 


READ i<I ( I .) 




1240 


READ B{1} 




1 250 


NEXT I 




1260 


RANDGNIZE 




1269 


REN ^^-^ DEPINE CHAR 


ACTEf^S 


1 270 


A " RPFF F FF FF F FF F F F F 


II 


1 280 


B:*^:^-^" 12V45B339C50331C 


i! 


1290 


CALL CHAR a 28 , A *- / 




1 300 


CALL CHAR (1 "=-:6 , B:ir ) 
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10 AWESOME PROGRAMS FROM K-POWER 



1310 CALL COLOR (13,2,2) 

1 320 CALL COLOR (14,3,1) 

1 330 CALL COLOR (12,1 , 1 ) . 

1340 FOR 1=1 rO DI 

1350 GOSUB 330 

1360 NEXT T 

1370 GOTO 390 

1380 INPUT R* 

1390 RETURN 

1 400 DATA - 1 , -■ 1 , --4 , 4 , 85 
1 410 DATA , - 1 , O , 4 , 73 
1420 DATA 1 ,-1 ,4,4,79 
1430 DATA -1 ,0, ■-4,0, 7 4 
1 440 DA T A 1 , , 4 , , 76 
1 450 DATA -1,1, -4 , --4 , 77 
1 460 DA T A , 1 , , --4 , 44 
1 47 DAT A 1,1,4, •-4 , 46 

TRS-80 Color Computer 

1 REM «** POISON IVY TRS-SC COLOR *** 
10 GOTO 3000 

99 REM ♦** JOYSTICK ROUTINE *** 

100 H=JOYSTK(0) 
110 V=J0YSTK(1) 

120 IF H<15 THEN YI=0:XI=-1 :RETURN 
130 IF H>47 THEN YI=0! X 1=1 ; RETURN 
140 IF V<15 THEN XI=0s YI=-1 sRETURN 
150 IF V>47 THEN XI=0:YI=1 : RETURN 
160 YI=0:X 1=0: RETURN 

199 REM READ KEYBOARD ROUTUINE **♦ 

£00 LI=0:XI=05YI=0 

£10 KE*=INKEY* 

££0 IF KE*="" THEN RETURN 

£30 IF KE*=KT*(LI) THEN YI=YT <LI ): XI=XT (LI) : RETURN 
£40 LI==LI + 1:IF LK8 THEN £30 
£50 RETURN 

399 REM *** DRAW IVY (CAN YOU BELIEVE IT?) »*« 

400 X=RND(510) 

410 IF X=££4 THEN 400 
4£0 C=l£8+16#(0>+15 
430 PRINTeX,CHR*(C) ; 
440 RETURN 

499 REM *♦» MAIN LOOP #** 

500 CO=0sRO=14:L=0 
510 SET (CO, RO, 5) 
5£0 IF L=l THEN £000 
530 FOR D=l TO £ 
540 NEXT D 

550 RESET (CO, RO) 

560 ON J GOSUB 100, £00 

570 RO=RO+YI:CO=CO+XI 

580 IF R0>31 THEN R0=31 

590 IF RO=<0 THEN RO=0 

600 IF CO(0 THEN 00=3 

610 IF C0>63 THEN 1000 

6£0 IF POINT (CO, RO)=i THEN L=l 

630 X=X+1 

640 IF X/6=INT(X/6) THEN GCSUB 400 
650 GOTO 510 
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10 ANVESOME PROGRAMS FROM K-POWER 



999 REM *** COMPLETED MAZE *** 

1000 CLS 
FOR T=l TO 100 
PRINT "YOU MODE IT! "5 
FOR D=l TO 10 
NEXT D 
NEXT T 
CLS:S=S+1 

PRINT "YOUR SCORE IS:"S 
PRINT 

IF S>HS THEN HS=S 
PRINT "THE HIOH SCORE IS:"HS 
DI=DI+20 
PRINT 
BOTO 2080 

REM *** YOU LOSE *** 
CLS 

YOU LOSE, YOU HAVE POISON IVY. 



1010 
1020 
1030 
1040 
1050 

1060 

1070 
1060 
1090 
1100 
1110 

1120 
1130 
1999 

2000 
2010 

2020 
2030 
2040 
2050 
2060 
£070 
2080 
21390 

2100 

2110 
2120 
2130 
2140 
2999 

3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 

3100 

3110 
3120 
3130 
3140 
3150 
3159 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3999 

4000 
4010 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
S=0 
PRINT 
GOSUB 



"YOUR FINAL SCORE IS5"S 
"THE HIGH SCORE IS:"HS 



(ENTER) TO PLAY AGAIN. 



"PRESS 

4000 

RESTORE 

DUM*=INKEY* 

IF DUM*<>"" THEN 2110 

CLS(0) 

GOTO 3160 

REM *** INTRODUCTION *** 
CLS 

PRINT "ARE YOU USING A JOYSTICK 
J*=INKEY*:IF J*="" THEN 3020 
IF J*="Y" THEN J= Is GOTO 3140 
IF J*<> "Y" THEN J=2 
CLS 

PRINT "THE DIRECTION KEYS AREs" 
PRINT 

PRINT "U I 
PRINT "J 
PRINT "M , 
PRINT 

PRINT "PRESS 
GOSUB 4000 
CLS(0) 
DI=50 



(Y/N) 



" 



0" 

L" 



<ENTER) TO BEGIN. 



TO 

TO 
TO 



REM ♦** 
FOR 1=0 
FOR 1=0 
FOR 1=0 
FDR T=l 
GOSUB 400 
NEXT T 
GOTO 500 
REM »** WAIT 
INPUT R* 
RETURN 



LOAD DIRECTION VARIABLES ♦** 
TO 7s READ KT*(I) sNEXT 
XT<I) :NEXT 
YT(I):NEXT 



7 ! READ 
7 : READ 
DI 



ROUTINE *** 
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10 AWESOME PROGRAMS FROM K-POWER 



5000 DflTfl ",L, J, M 

5010 DftTft 0,1,1,1,0,-1,-1,-1 
5020 DfiTfl 1,1,0,-1,-1,-1,0,1 

TRS-80 Model III and Model 4 

1 REM ♦** POISON IVY TRS-SO MODELS 3 AND 4 CASS. AND MODEL 3 DISK BASIC »♦« 
10 GOTO 3000 

199 REM *** READ KEYBOARD ROUTINE *** 

200 LI=0: XI=0: YI=0 
210 KE*=INKEY* 

220 IF KE*="" THEN RETURN 

230 IF KE*=KT«(LI) THEN YI=YT (LI ): X I=XT (LI ): RETURN 
240 LI=LI + l:IF LK8 THEN 230 
250 RETURN 

399 REM **♦ DRAW IVY ♦♦« 

400 X=RND(1022) 

410 IF X=512 THEN 400 
430 PRINT@X,CHR*(191) ; 
440 RETURN 

499 REM **« MAIN LOOP *#« 

500 C0=0:R0=25:L=0 
510 SET(C0,R0) 

520 FOR D=i TO 2 
530 NEXT D 

540 IF L=l tHEN 2000 
550 RESET (CO, RO) 

560 GOSUB 200 i 

570 RO=RO+YI:CO=CO+XI 

5i0 IF R0>47 THEN R0=47 

590 IF R0<0 THEN R0=0 

600 IF C0<0 THEN C0=0 

610 IF C0>127 THEN 1000 

620 IF POINT (CO, RO) THEN L=l 

630 X=X+1 

640 IF X/6=INT(X/6) THEN GOSUB 400 
650 GOTO 510 

999 REM *** COMPLETED MAZE *** 

1000 CLS 

1010 FOR T=l TO 100 
1020 PRINT "YOU MADE IT! 
1030 FOR D=l TO 10 
1040 NEXT D 
1050 NEXT T 

1060 cLs:s=s+i 

1070 PRINT "YOUR SCORE IS: "S 
1080 PRINT 

1090 IF S>HS THEN HS=S 

1100 PRINT "THE HIGH SCORE IS: "HS 

1110 DI=DI+50 

1120 PRINT 

1130 GOTO 2080 

1999 REM *** YOU GET THE ITCHES *♦* 

2000 CLS 

2010 PRINT "YOU LOSE! YOU HAVE POISON IVY!!!" 
2020 PRINT 

2030 PRINT "YOUR FINAL SCORE IS: "S 
2040 PRINT 

2050 PRINT "THE HIGH SCORE IS: "HS 
2060 PRINT 
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10 AWESOME PROGRAMS FROM K-PCWER 



2070 S=«0 

2080 PRINT "PRESS (ENTER) TO PLAY AGAIN."; 

2090 GOSUB 4000 

2100 RilTORE 

2110 CLS 

2120 GOTO 3160 

2999 REM **♦ INTRODUCTION *** 

3000 CLS 

3060 PRINT "THE DIRECTION KEYS ARE:" 
3070 PRINT 

3080 PRINT TAB(7)"U I 0" 
3090 PRINT TAB (7) "J L" 
3100 PRINT TAB(7)"M , 
3110 PRINT 

3120 PRINT "PRESS (ENTER) TO BEGIN."; 
3130 G05UB 4000 
3140 CLS 
3150 DI=100 

3159 REM *** LOAD DIRECTION VARIABLES *«♦ 

3160 FOR 1=0 TO 7: READ KT*(I):NEXT 
3170 FOR 1=0 TO 7: READ XT(I):NEXT 
3180 FOR 1=0 TO 7: READ YT(I):NEXT 
3190 FOR T=l TO DI 

3200 GOSUB 400 
3210 NEXT T 
3220 GOTO 500 

3999 REM *** WAIT ROUTINE «** 

4000 INPUT R* 
4010 RETURN 

5000 DATA ", ", ". ",L,0, I,U, J,M 

5010 DATA 0,2,2,2,0,-2,-2,-2 
5020 DATA 2,2,0,-2,-2,-2,0,2 

VIC-20 

1 REM *** POISON IVY VIC-20 *♦* 
10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE **♦ 

100 POKE 37154, 127 

110 XT?4=PEEK (37152) AND 128 
120 POKE 37154,255 

130 XT9C=XT?4 OR (PEEK (37137) AND 127) 
140 XI=SGN(XT-/.flND128)-SGN(XT:4flND16) 
1 5i Y I =SGN ( XT%flND8 ) -SGN ( XT?4flND4 ) 
160 RETURN 

199 REM ♦** REPID KEYBOARD ROUTINE ♦«* 

200 XI=0:YI=0:LI=0 
210 GET KE* 

£20 IF KE*=""THEN RETURN 

230 IF KE*=KT*(LI) THEN YI=YT (LI) : XI=XT (LI ): RETURN 
240 LI=LI+i:IFLI <8 THEN 230 
250 RETURN 

399 REM ♦** DRAW IVY *♦* 

400 X=INT(RND(i)»22) 
410 Y=INT(RND(1)*£3) 

420 IF X=0 fiND Y=ll THEN 400 
430 IF X=l AND Y=ll THEN 400 
440 POKE SB+X+22*Y, 88 
450 POKE CB+X+2£#Y, 5 
4S0 RETURN 
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10 AWESOME PROGRAMS FROM K-POWER 

499 REM »»* MAIN LOOP *«* 

500 CO*0!RO=11:L=0 
510 POKE CB+H1+22»H2,0 
520 POKE CB+C0+22*R0, 1 
530 POKE SB+C0+22»R0, 43 
540 IF L=l THEN 2000 
550 H1»C0:H2=R0 

560 ON J GOSUB 100,200 

570 RO=RO-YI:CO=CO-XI 

580 IF R0>22 THEN R0=22 

590 IF RO<0 THEN RO=0 

600 IF CO<0 THEN CO=0 

610 IF C0>21 THEN 1000 

620 IF PEEK(SB+C0+22*R0)=S8 THEN L=l 

630 X=X+1 

640 IF X/6=INT(X/6)THEN BOSUB 400 
650 GOTO 510 

999 REM **♦ COMPLETED MAZE *♦♦ 

1000 PRINT CHR*(147) 
1010 FOR T=l TO 100 
1020 PRINT "YOU MADE IT! 

1030 POKE 36879, INT(RND(l)*7)+7 
1050 NEXT T 
1060 S=S+1 

1070 IF S>HS THEN HS=S 

1080 DI=DI+50 

1090 PRINT CHR*(147) 

1100 POKE 36879,232 

1110 PRINT "YOUR SCORE IS:"S 

1120 PRINT 

1130 PRINT "THE HIGH SCORE IS:"HS 
1140 PRINT 
1150 GOTO 2080 

1999 REM *♦* LOSE GAME *** 

2000 PRINT CHR*(147) 

2010 PRINT "YOU HAVE POISON IVY!" 
2020 PRINT 

2030 PRINT "YOUR FINAL SCORE IS:"S 
2040 PRINT 

2050 PRINT "THE HIGH SCORE IS:"HS 
2060 PRINT 
2070 S=0 

2080 PRINT "(SHIFT) TO PLAY AGAIN" 

2090 GOSUB 4000 

2100 RESTORE 

2110 GET DUM$ 

2120 IF DUM*<>""THEN 2110 

2130 PRINT CHR*(147) 

2140 GOTO 3170 

2299 REM *** INTRODUCTION 

3000 PRINT CHR*(147) 

3010 PRINT "USING A JOYSTICK (Y/N) " 

3020 GET J*! IF J*=""THEN 3020 

3030 IF J$="Y"THEN J=ls60T0 3140 

3040 IF J*<>"Y"THEN J=2 

3050 PRINT CHR*(147) 

3060 PRINT "THE MOTION KEYS ARE:" 

3070 PRINT 

3080 PRINT "U I 0" 
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10 AWESOME PROGRAMS FROM K-POWER 



3090 PRINT "J L" 
3100 PRINT "M , . " 
3110 PRINT 

3120 PRINT "PRESS (SHIFT) TD BEGIN" 
3130 GOSUB 4000 
3140 PRINT CHR*(147) 

3159 REM **» INITIALIZE SCREEN AND SCORE VARIfiBLES *** 

3160 SB-7680:CB°'3a400:DI»100 
3170 POKE 36879, 9: POKE 650,128 

3179 REM *** LOAD DIRECTION VARIABLES *** 

3180 FOR 1=0 TO 7:READ KT*<I>:NEXT 
3190 FOR 1=0 TO 7:READ XT(I)sNEXT 
3200 FOR 1=0 TO 7: READ YT<I):NEXT 
3220 FOR T=l TO DI 

3230 GOSUB 400 
3240 NEXT T 
3250 GOTO 500 

3999 REM *** WAIT ROUTINE *** 

4000 WAIT 653, 1 . 
4010 WAIT 653, 1, 1 
4020 RETURN 

5000 DATA I , u, J, M, " , " , " : " , L, 
5010 DATA 0,1,1,1,0,-1,-1,-1 
5020 DATA 1,1,0,-1,-1,-1,0,1 
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10 AWESOME PROGRAMS FROM K-PCWER 



BONUS PROGRAM #3 

WORD SCRAA4BLE 

WORD SCRAMBLE is something like computer alphabet soup. 
Duons? No, uh,..nsoud? Mo, oh! Sound! You got it and 
you'll get 'em all when you sink your mind into WORD 
SCRAMBLER. This mind teaser shows you a line o-f mixed up 
letters that you have to make a wrod . >. „ uh . . . ward out of , 
Each time you guess a 1 etter ' s correct location, the 
computer prints a "1" underneath it. By using clues, 
you'll solve even the most challenging words. Each time 
you correctly, pick the entire word, the computer shows you 
how many tries it took you to get it. To skip a word, 
type "N" and then hit ENTER or RETURN. 



ADAM 

1 REM *** WORD SCRAMBLE ADAM *** 
10 HOME 

20 PRINT "WORD SCRAMBLE" 
30 PRINT 

40 PRINT "Try to unscramble words by" 

45 PRINT "typing in guesses. The" 

50 PRINT "computer will show you which" 

60 PRINT "letters are in the correct" 

65 PRINT "places." 

70 PRINT "Use only CAPITALS!" 

80 PRINT "Example: The computer prints:" 

85 PRINT "SUEGS" 

90 PRINT "The actual word is GUESS." 
100 PRINT "If you type: GEUSS, the" 
105 PRINT "computer will respond with" 
110 PRINT "'lOOir, meaning the first," 
120 PRINT "fourth, and fifth letters" 
130 PRINT "are in the correct locations." 
140 PRINT 

150 PRINT "Press any key to continue." 
160 GET n$ 
170 u$ = "" 

179 REM *** read scrambled word *** 

180 READ w$ 

190 IP w$ = "0" THEN RUN 

199 REM read actual word *** 

200 FOR X = 1 TO LEN(w$) 
210 READ ch(x) 

220 u$ = u$+CHR$(ch(x) ) 
230 NEXT X 
240 g = 1 
I 250 HOME 

260 PRINT "Press 'N' then (RETURN) for" 
265 PRINT "a new word."' 

269 REM *** guess loop 

270 PRINT 

280 PRINT "The scrambled word is:" 
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290 PRINT 

500 PRINT " w$ 
310 PRINT 
320 r = 

330 PRINT "Type your guess, the (RETURN)." 

340 PRINT 

350 INPUT g$ 

360 IP g$ = "N" THEN 170 

370 IF LEN(g$) > LEN(w$) THEN PRINT "Guess too long!": GOTO 280 
380 IP LEN(g$) < LEN(w$) then PRINT "Guess too short!": GOTO 280 
390^ PRINT 



If It , 



400 FOR X = 1 TO LEN(w$) 

410 IP MID$(g$, X, 1) = MID$(u$, X, 1) THEN GOSUB 480 
420 IP MID$(g$, X, 1)<> MID$(u$, x, 1) THEN GOSUB 510 
430 NEXT X 
440 PRINT 

450 IP r = LEN(g$) THEN 530 
460 g = g+1 
470 GOTO 310 

479 REM correct letter routine *** 

480 PRINT "1 "; 
490 r = r+1 
500 RETURN 

509 REM *** incorrect letter routine *** 
510' PRINT "0"; 
520 RETURN 
530 HOME 

540 PRINT "You got it in "; g; " turn(s)!" 
550 PRINT 

560 PRINT "Press any key to play again." 
570 GET n$ 
580 GOTO 170 

1000 DATA LETCICER,69,76,69,67,84,82,73,67,SGEAR00UUT,79,85,84,82,65, 
71,69,79 

1010 DATA 85,83,ACTANPEU0L,67,65,78,84,65,76,79,85,80,69 
1020 DATA LABTEKSABL,66,65,83,75,69,84,66,65,76,76 
1030 DATA TANIRUC,67,85,82,84,65,73,78,TAMELPAC,80,76,65,67,69,77,65,84 
1040 DATA 0NUSHCI,67,85,83,72,73,79,78,W0LCRADY,67,79,87,65,82,68,76,89 
1050 DATA DELIS,83,76,73,68,69,TARIUG,71 ,85 ,73 ,84 ,65 ,82 , 0WELT,84,79 ,87, 
69,76 

1060 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71 ,89 
1070 DATA AGRTEP,67,65,82,80,69,84,ARERES,69,82,65,85,69,82 
1080 DATA ELTKET,75,69,84,84,76,69,REUICTP,80,73,67,84,85,82,69 
1090 DATA IISGNYP,83,73,71 ,78,73,70,89,0RDAI,82,65,68,73,79 
1100 DATA ZEERPAT,84,82,65,80,69,90,69,0 

Apple II and Apple He 

1 REM *** WORD SCRAMBLE APPLE 
10 HOME 

20 PRIIMT "WORD SCRAMBLE" 
30 PRINT 

40 PRINT "TRY TO UNSCRAMBLE WORDS BY TYPINO" 
50 PRINT "IN GUESSES. THE COMPUTER WILL SHOW YOU" ■ 
60 PRINT "WHICH LETTERS ARE IN THE CORRECT PLACES." 
70 PRINT 

80 PRINT "EXAMPLE; THE COMPUTER PRINTS : SUESS" 

90 PRINT "THE ACTUAL WORD IS GUESS." 

100 PRINT "IF YOU TYPE: GEUSS, THE COMPUTER WILL" 
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1 10 


PRINT "RESPOND WITH '10011', MEANING THE" 




120 


PRINT "FIRST, FOURTH, AND FIFTH LETTERS ARE" 




130 


PRINT "IN THE CORRECT LOCATIONS." 




140 


PR I NT 




150 


PRINT "PRESS ANY KEY TO CONTINUEn " 




160 


GET N:*: 




170 


U* = " " 




179 


REM *** READ SCRAMBLED WORD ^•^^ 




180 


READ 




190 


IF W4: = "0" THEN RUN 




199 


REM READ ACTUAL WORD 




200 


FOR X = 1 TO LEN iW*) 




210 


READ CH(X) 




220 


U:|: = U^' + CHR:*: (CH<X)) 




230 


K ir*~ \j "r* V/ 

NEXT X 






B ~ 1 




250 


HOME 




2<b0 


PRINT "PRESS 'N' THEN (RETURN) ffOR A NEW WORD" 




269 


REM GUESS LOOP 




270 


PR I NT 




280 


PRINT "THE SCRAMBLED WORD IS: " 




290 


PRINT 




300 


PRINT " "W:^ 




.310 


PRINT 




320 


R = 




-y y-w 

0.30 


PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)." 






T KIT* 

PRINT 




o«ou 


INPUT 






IF 6^ = "N THEN 170 




370 


IF LEN (G*) > LEN (W*) THEN PRINT "GUESS TOO LONG!" 


5 GOTO 280 


380 


«p MM 1 MM 1^ 1 m mm\ V •* 1 1**** W 1 1 % t V t 1 t"^ •> 1 t*". «V ft. ft —W^ ■ ft ft ft ft«-M M«. MM MM M* M« MM « . MM MM M*M • 

IF LEN (G:*:) LEN (W:*:) THEN PRINT "GUESS TOO SHORT! 


"s GOTO 280 


TO/** 


C»E!i T KIT" II II - 

P R I NT " " 5 




400 


FOR X = 1 TO LEN (W*) 




410 


IF MID* (G:r-,X,1) = MID* (U*,X,1) THEN 60SUB 480 




42U 


IF MID* (G*,X,1) < > MID* (U*,X, 1) THEN GOSUB 510 




4.::.U 


NEXT X 




440 


PRINT 




450 


IF R = LEN (G*) THEN 530 




yi y /"* 

46U 


G = G + 1 




470 


MM MM MM MM MM • M_ 

GOTO 31U 




479 


REM CORRECT LETTER ROUTINE 




480 


PRINT "1"; 




490 


R = R 1 




500 


RETURN 




509 


REM INCORRECT LETTER ROUTINE 




510 


PRINT "0"s 




520 


RETURN 




530 


HOME 




54 U 


PRINT "YOU GOT IT IN "G" TURN(S)!" 




550 


PRINT 




56U 


PRINT "PRESS ANY KEY TO PLAY AGAIN. " 




570 


GET N* 




580 


GOTO 1 70 




1 000 


DATA LETC I CER , 69 , 76 , 69 , 67 , 84 , 82 , , 67 , SGEAROOUUT , 79 , 


85 , 84 , 82 , 65 , 




7 1 , 69 , 79 




1 1 u 


DATA 85 , 8c. , ACTANPEUOL , 67 , 65 , 78 , 84 , 65 , 76 , 79 , 85 , 8U , 69 




1020 


DATA LABTEKSABL,66,65,8.3,75,69,84,66,65,76,76 




1 030 


DATA TAN I RUC , 67 , 85 , 82 , 84 , 65 , 73 , 78 , TAMELP AC , 80 , 76 , 65 


,67,69,77, 




65,84 
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1040 


DATA ONUSHC I , 67 , 85 ,83 , 72 , 73 , 79 , 78 , WOLCRADY , 67 


9 7*? ^ Q7 9 65 9 S 


2,68, 




76,89 






1 050 


DATA DELIS,83,76,73,68,69,TARIUe,71 ,85,73,84, 


65,82,0WELT 


,84,79, 




87 , 69 , 76 






1 060 


DATA MUTESOC , 67 , 79 , 83 , 84 , 85 , 77 , 69 , Y060 I LB , 66 , 


73,79,76,79 


,71 ,89 


1070 


DATA ACRTEP , 67 , 65 , 82 , 80 , 69 , 84 , ARERES , 69 , 82 , 65 


, 83 , 69 , 82 






DATA ELTKET , 75 , 69 , 84 , 84 , 76 , 69 , REU I CTP , 80 , 73 , 67 , 84 , 85 , 82 , 


69 


1090 


DATA IISGNYF,83,73,71 , 78 , 73 , 70 , 89 , ORDAI , 82 , 65 






1 100 


DATA ZEERPAT,84,82,65,80,69,90,69,0 






Atari 








1 RE 


.M *** WORD SCRAMBLE ATARI 






10 DIM U*(ll) ,G*(15) ,W*<11) 






20 DIM TEMP*(1) ,R$<i) 






30 PRINT CHR$(125) 






40 PRINT "WORD SCRAMBLE" 






50 PRINT 






60 PRINT "TRY TO UNSCRAMBLE SaIORDS BY TYPING" 






70 PRINT "YOUR BUESSES, THE COMPUTER" 






80 PRINT "SHOWS YOU WHICH LETTERS ARE" . 






90 PRINT "IN THE CORRECT PLACES." 






100 


PRINT 






110 ■ 


PRINT "EXAMPLES THE COMPUTER PRINTS: SUEOS" 






120 


PRINT "THE ACTUAL WORD IS 8UESS. " 






130 


PRINT "IF YOU TYPE; GEUSS, THE COMPUTER WILL" 






140 


PRINT "RESPOND WITH '10011', MEANING THE" 






150 


PRINT "FIRST, FOURTH, AND FIFTH LETTERS" 






160 


PRINT "ARE IN THE CORRECT LOCATIONS,," 






170 


PRINT "PRESS (RETURN) TO CONTINUE. " 






180 


GOSUB 2000 






190 


U:|:= " " 






199 


REM *** READ SCRAMBLE WORD *** 






200 


READ W-*. 






210 


IF W*="0" THEN RUN 






219 


REM *** READ ACTUAL WORD 






220 


FOR X=1 TO LFN(W-15'J 






230 


READ CH 






240 


TEMP*=CHR$ (CH) 






250 


U* ( X , X ) ^-■=TEMPt- 






260 


NEXT X 






270 


G^l 






280 


PRINT CHR4;(125) 






290 


PRINT "PRESS 'N- THEN (RETURN) FOR NEW WORD" 






299 


REM GUESS LOOP *^<-* 






300 


PRINT 






310 


PRINT "THE SCRAMBLED WORD ISs " 






320 


PRINT 






330 , 


PRINT m 






340 


PRINT 






350 


R:.= 






360 


PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)"; 






380 


INPUT Gf 






390 


IF G*="N" THEN 190 






400 


IF LEN(G$) >LEN(W*) THEN PRINT "GUESS TOO LONG!" 


^GOTO 310 




410 


IF LEN(Gf )<LEN(W$) THEN PRINT "GUESS TOO SHORT! 


'5 GOTO 310 




420 


PRINT 






430 


FOR X^==l TO LEN(W$> 






440 


IF G*(X,X)^U*(X,X) THEN GOSUB 510 






450 


I F 6$ ( X , X ) < >U:* ( X , X ) THEN GOSUB 540 
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10 AWESOME PROGRAMS FROM K-PQWER 



THEN 560 



460 NEXT X 
470 PRINT 
480 IF R=LEN(B*-) 
490 6=6+1 
500 60T0 300 

509 REM *»* CORRECT LETTER ROUTINE 

510 PRINT "1"; 
520 R=R+1 
530 RETURN 

539 ,REM INCORRECT 

540 PRINT "0"; 
550 RETURN 
560 PRINT GHR*(125) 
570 PRINT "YOU GOT IT 
580 PRINT 

590 PRINT "PRESS (RETURN) 
600 GOSUB 2000 
610 GOTO 190 

1 000 DATA LETC I CER , 69 , 76 , 69 ,6 
71,69,79 

1010 DATA S5,S3,SCTANPEU0L,67,6: 
1 020 DATA LABTEKSABL , 66 , 65 , 83 , 75 , 69 , 84 , 66 , 65 , 76 , 76 



LETTER ROUTINE 

IN ";G5 " TURN(S) ! " 
TO PLAY AGAIN. ' 



84 , 82 , 7; 



, 67 , SSEAROOUUT , 79 , 85 84 , 82 , 65 . 



, 78 ,84,65, / o , / , , .... 



•7A TO 



, 80 , 69 



1030 DATA TANIRUC,67,85,S2,S4,, 



'3 , 78 , TAMELPAC , SO , 76 , 65 , 6: 



, 69 , 77 



1 040 DATA ONUSHC I 67 , 85 , 83 , 72. , 73 , 79 , 78 , WOLCR ADY ,67,79,87,65,82, 68 
1 050 DATA DELIS, S3 , 76 , 73 , 68 , 69 , T AR I U6 , 7 1 , 85 , 73 „ 84 , 65 , 82 , OWELT , 84 , 
69,76 

i 060 DATA MUTESOC , 67 , 79 , S3 , 84 , 85 , 77 , 69 , TOGO I LB , 66 , 73 , 79 , 76 , 79 , 7 1 , 

1 070 DATA ACRTEP , 67 , 65 , 82 , SO , 69 , 84 , ARERES , 69 , 82 , 65 , 83 , 69 , 82 

1 080 DATA ELTKET , 75 , 69 , 84 , 84 , 76 , 69 , REU I DTP , SO , 73 , 67 , 84 , 35 , 82 , 69 

1 090 DATA 1 1 SGN YF , 83 , 73 , 7 1 , 78 , 73 , 70 , 89 , ORDA 1,82, 65 , 68 , 73 , 79 

1 1 00 DATA ZEERP AT , 84 , 82 , 65 , 80 , 69 , 90 , 69 , 

1999 REM WAIT ROUTINE *** 

2000 INPUT R* 
2010 RETURN 



, 65 , 84 
, 76 , 89 
79 , 87 , 



IBM PC 

10 .REM -K- 
20 CLS 
30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 
90 PRINT 
i 00 
110 
120 
130 
1 40 
150 
160 
170 
180 
1 90 
200 
210 

{''I 



-yc WORD SGRAiiBLE IBM PC ^^-^ 

"IaIORD SCRAMBLE" 

"UNSCRAMBLE !a)ORDS BY TYPING" 
"YOUR GUESSES « THE COMPUTER 
"SHfjWS YOU WHICH LETTERS ARE 
"CORRECT. FOR EXAMPLE^" 



PRINT 
PRINT 
PRINT 



"THE COMPUTER PRINTS, 'SUEGS 



"THE ACTUAL WORD IS 'GUESS'," 
"IF- YOU TYPE 'GEUSS', THE" 
"COMPUTER WILL RESPOND WITH" 
" ^ 10011 ' , MEANING THE FIRST, " 
"FOURTH, a: FIFTH LETTERS ARE IN" 
"CORRECT LOCATIONS. PRESS ANY" 
"KEY TO BEG^IN. " 
Arl^^^^^INKEY^!:: 
If A:i!?^="" THEN ISO 
IM^" " 

REM -^x-^- READ SCRAMBLED WORD -^f-^-J?- 
READ W* 

IF . W:$-:^:"0" THEN RUN 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
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10 AWESOME PROGRAMS FROM K-POWER 



240 FOR X==l TO LEN(W:^) 

250 READ CH(X) 

260 U:*^^U*+CHR4^ (CH ( X ) > 

270 NEXT X 

280 G^l 

290 CLS 

300 PR I N T " PRESS N ' ( Eh4TER ) " 
3:10 PRINT "FOR A NEW «/JORD« " 
320 REN GUESS LOOP 

330 PRINT 

340 PRINT "THE SCRAMBLED WORD ISs " 
350 PRXNT 
360 PRINV " 
370 PRINT 

380 R^O 

390 PRINT ''TYPE YOUR GUESS," 

400 PRINT "THEN PRESS (ENTER)-" 

410 PRINT' 

420 INPUT B$ 

430 IF 8:?1^:^^"N" THEN 200 . 

440 IF LEN<6t) >LEN(N:$:) THEN PRINT "GUESS TOG LONG! "s GO TO 340 
450 IF LEN(G$)<LEN(W$-) THEN PRINT "GUESS TOO SHORTI"sGGTQ 340 
460 PRINT" " "s 
470 FOR X'^^^l TO LEN(W1^> 

480 I F 11 1 D$ a3:i^ X , 1 ) ==^N I Df ( U:*: , X , I ) THEN GOSUB 560 
490 I F M I m ( G:$: , X 1 ) < > N U)$i 1}-$ , X , J.) T HEN GOSUB 600 
500 NEXT' X 
510 PRINT 

520 IF R:-4...EN'.G:*^) THEN 620 
530 G^^G-M 
540 GOTO 330 

550 REN -^^-^ CORRECT LETTER ^-^-^ 
560 PRINT "1"^ 
570 R::^R-M 
580 RETURN 

590 REN -^-^i^- INCORRECT LETTER -^"^"^^ 
600 PRINT "O"!; 
610 RETURN 
620 CLS 

630 PRINT "GOT IT IN "G" TURN(S)" 
640 PRINT 

650 PRINT "PRESS AN^ KEY TO RUN AGAIN" 

660 A*-^:INI<EY* 

6 70 IF v^t^^" " THEN 660 

680 GOTO 200 , • 

1000 DATA LETCICER. 69, 76h69..67 ,84,82.73.67 

1010 DATA SGEAROGUUT , 79 , 85 , 8^1 , 82 , 65 , 7 1 .,69,79,85,83 

1 020 DA T A AC f AIMPEUOL , 6 7 , 65 , 78 ,84,65. 76 ,79,85, 80 , 69 

1 030 DATA ALBTEKSABL ,66,65. 83 .,75,69,84,66,65/76,76 

1 040 DA I" A ^ T AN I RUC h 6 / , 85 , 82 , 84 , 65 , 73 , 78 , T ANELPAC , SO ^ 76 . 65 , 6 7 , 69 , 77 , 6.5 , 84 
1 050 DATA ONUBCH I ,67, 85 , 83 , 72 , 73 , 79 , 78 , NOLCR AD Y ,67.79, 8 7 , 65 , 82 , 68 , 7 6,89 
1 060 DA 1 A DEL I S , 83 , 76 , 73 68 , 69 , T AR I UG , 7 1 , 85 , 73 , 84 , 65 , 82 , OIaIELT , 84 , 79 , 8 7 , 
69,76 

1 070 DA I A NUTESOC , 67 ,79 , 83 ,84,85, 77 , 69 , YOGO I LB , 66 , 73 , 7 9 , 7 6 , 7 9 , 7 1 , 89 
1 080 DA r A ACR TEP , 6 7 , 65 , 82 , 80 , 69 , 84 , ARERES , 69 , 82 , 65 , 83 , 69 , 82 
1090 DATA ELTKET,75,69,S^I ,84.,76,69,REUICTP,80,73,67,84,85,82,69 
1 100 DATA 1 1 SGN yF , 83 , 73 ,71, 78 , 73 , 70 , 89 , ORDAI , 82 , 65 , 68 , 73 , 79 ' 
1 1 1 O DATA ZEERPAT , 84 , 82 > 65 , 80 , 69 , 90 , 69 ,0 



10 AWESOME PROGRAMS FROM K-POWER 



vwiiiiiiwCIWiC Of 




1 REM WORD SCRAMBLE 64 




10 PRINT CHR$(147) 




£0 PRINT "WORD SCRAMBLE" 




.i0 PRINT 




40 PRINT "TRY TO UNSCRAMBLE WORDS BY TYPING" 




50 PRINT "IN GUESSES. THE COMPUTER WILL SHOW YOU" 




60 PRINT "WHICH LETTERS ARE IN THE CORRECT PLACtS. " 




70 PRINT 




80 PRINT "EXAMPLES THE COMPUTER PRINTS, ' SUEGS' . " 




QrtI nr*lTKI*T* II *T*I 1^" f\.F^'^l iy*\l ■ 1 i/"*P^T^ T #~t ■ mi »p~**"ni~%« it 

y0 PRINT "THE ACTUAL WORD IS 'GUESS'." 




4 I** f% o n T K 1 *T* 1 1 T r"" V y #^ l I t* V y r** r~ . P~ i t a t* i i p~ m m lui pni i "P* r~* p% ti"pt i it 

100 PRINT "IF YOU TYPE ' GEUSS' , THE COMPUTER WILu" 




110 PRINT "RESPOND WITH '10011', MEANING ^THE" 




A r*> P'% t* K 1 *T* 1 1 r~* T **p* p" f**! i i m i t #*v k t p** f p^ ••r> it f~> •t^ ^p* p*~ p^ m p*i t~ j t 

1£0 PRINT "FIRST, FOURTH, AND FIFTH LETTERS ARE'* 




1,A0 PRINT "IN THE CORRECT LOCATIONS." 




140 PRINT 




150 PRINT "PRESS (SHIFT) TO CONTINUE. " 




160 GOSUB vi000 




it **9 it* 1 1 ^ 1 1 1 1 
170 U*="" 




179 REM READ SCRAMBLED WORD 




180 READ W* 




190 IF W$="0" THEN RUN 




199 REM READ ACTUAL WORD 




i;:::00 FOR X=l TO LEN(W*), 




c!i0 Rt.AD CH(X) 




ii:c:0 U*=U*+CHR* (CH (X) ) 




~* •** k / r*~ Ke "*r* vy 

NEXT X 




£40 G=l 




£50 PR I NT CHR* ( 1 47 ) 




u::60 PRiNT "PRtSS ' N' THEN (RE i URN) FOR h Nfc.W WORD 




c!69 REM GUESS LOOP 




ir:70 PRiNT 




dQio PRINT "THE SCRAMBLED WORD ISs" 




~«. t-im i~% "P k ; ~r* 

c:90 PRINT 




vi00 PRINT " "W* 




.^►10 PRINT 




3£0 R=0 




vi30 PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)." 




340 PRINT 




350 INPUT G* 




y** ."•». T P*** ^ 1 1 l> 1 1 1 ^** 1 1 P""* k 1 J »••». 

^60 IF G*="N" THEN 170 




•**T T I"**" 1 k ' y m ^ V \ 1 r~ k t y t t j4* v t* t 1 1~* k i P"% P"> t k i *■!" 1 1 m i i p~ r** -i* r*% n i n k i r**- t 5 5 

»i70 IF Lfc-N (G*) > LEN (W*) THEN PRINT "GUEbS TOO LONG!" 


_ r*^ n T* n n i"?! 

sbOTO 1=180 


»i80 II- LEN (G*) <LEN ( W$.) THEN PRIN: ' GUtSS > 00 SHORil 


s SuTU C.80 


•-». 1 r*i T k 1 "IT" 1 1 1 1 ^ 

j?9a PRINT " "; 




400 FOR X=l TO LEN(W*) 




410 IF MID* (G*, X, 1 ) =MID* (U*, X, 1 ) THEN bObuB 480 




4c0 IF MID* (lj*, X, 1 ) <> MID* (U*, X, 1 ) THEN GOSUB 510 




4vi0 NhXT X 




440 PRINT 




/ p"** "p p^v f p*~ !» ? y /"v V 1 : p*" k : p*" "*% 

450 IF R=lEN(G*) i HEN 5»i0 




460 G=G+i 




470 bUTO £:!70 




473 REM CuRRfciC t LETTciR RuUiINE 




i ft T k 5 "T" 114 J 1 

480 PRINT * 1 " ? 




490 R==Rh-1 




r~ .~fc ••^ ""P* 1 t P*v 1» 1 

500 RtTURN 




509 REM *** INCORRECT LETTER ROUTINE *** 
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10 AWESOME PROGRAMS FROM K-PCWER 



510 PRINT "0"? 

5£0 RETURN 

530 PRINT CHR*(147) 

540 PRINT "YOU GOT IT IN"B"TURN (S) ! " 
550 PRINT 

560 PRINT "PRESS (SHIFT) TO PLOY flGfllN. " 
570 eOSUB 3000 
580 eOTO 170 

1000 DflTfl LETCICER, 69, 76, 69, 67, 84, 82, 73, 67, SGEfiROOUUT, 79, 85, 84, 82, 65, 71, 

1010 DflTfl 85, 83, flCTONPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 

1020 DflTfl LflBTEKSflBL, 66, 65, 83, 75, 69, 84, 66, 65, 76, 76 

1030 DflTfl TflNIRUC, 67, 85, 82, 84, 65, 73, 78, TflMELPflC, 80, 76, 65, 67, 69, 77, 65, 84 

1040 DflTfl ONUSHCI, 67, 85, 83, 72, 73, 79, 78, WOLCRflDY, 67, 79, 87, 65, 82, 68, 76, 89 

1050 DflTfl DELIS, 83, 76, 73, 68, 69, TflRIUG, 71, 85, 73, 84, 65, 82, DWELT, 84, 79, 87, 

1060 DflTfl MUTES0C,67,79, 83,84,85,77,69, YOGOILB, 66, 73, 79, 76,79,71,89 
1070 DflTfl flCRTEP, 67, 65, 82, 80, 69, 84, flRERES, 69, 82, 65, 83, 69, 82 
1080 DflTfl ELTKET, 75, 69, 84, 84, 76, 69, REUICTf3, 80, 73, 67, 84, 85, 82, 69 
1090 DflTfl I ISGNYF, 83, 73, 71 , 78, 73, 70, 89, ORDfll , 82, 65, 68, 73, 79 
1100 DflTfl ZEERPflT, 84, 82, 65, 80, 69, 90, 69, 
3000 WAIT 653, 1 
3010 WAIT 653, 1,1 
3020 RETURN 

Ti-99/4A 

1 REM *** I'JORD SCRAMBLE TI 99/4A *** 

to CAU... CLEAR 

20 PRINT "WORD SCRAMBLE" 

30 F'RINT 

40 F-'RINT "UNSCRAMBLE WORDS BY" 

50 PRINT "TYPING YOUR fSUESSES, " 

60 PRINT "THE COMPUTER SHOWS" 

70 PRINT "YOU WHICH LETTERS ARE" 

SO PRINT "CORRECT. FOR EXAMPLES " 

90 PRINT ' . 

1.00 PRINT "THE COMPUTER PRINTS," 

110 PRINT "'SEURS'. THE ACTUAL" 

120 PRINT "WORD IS 'GUESS'." 

130 PRINT "IF YOU TYPE 'GEUSS'," 

140 PRINT "THE COMPUTER WILL RESPOND" 

150 PRINT "WITH '10011', MEANING" 

160 PRINT "THE FIRST, FOURTH, ?<" 

170 PRINT "FIFTH LETTERS ARE IN" 

180 PRINT "TfiE CORRECT LOCATIONS," 

190 PRINT "PRESS (ENTER) TO PLAY" 

200 INPUT R$ 

210 READ W:*: 

220 IF W*=--"0" THEN 230 ELSE 250 
230 RESTORE 
240 GOTO 210 

249 REM *** READ SCRAMBLED WORD »** 

OC.-^-j j i! I! 

260 FOR X:::^^! TO LEI\!(W$) 

270 READ CH(X) 

280 U:=l>-l|:ri5/CHR:i^ ( CH ( X ) ) 

290 NEXT X 

300 N=^l 

310 GALL CLEAR 
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10 AWESOME PROGRAAAS FROM K-POWER 



320 


PRINT "PRESS N THEN < ENTER) " 














330 


PRINT "FOR A NEW WORD. " 














340 


PRINT 














349 


REM **# GUESS LOOP *** 














350 


PRINT "THE SCRAMBLED WORD IS:" 














360 


PRINT 














370 


PRINT " ";W$ 














380 


PRINT 














390 


R=0 














400 


PRINT "TYPE IN YOUR BUESS," 














410 


PRINT "THEN PRESS (ENTER)" 














420 


PRINT 














430 


INPUT e$ 














440 


Ijr 6t="N" THEN 210 














450 


IF LEN(G*) >LEN(W*)THEN 460 ELSE 480 














460 


PRINT "GUESS TOO LONG!" 














470 


GOTO 350 














480 


IF LEN(G*)<LEN(W$)THEN 490 ELSE 510 














490 


PRINT "GUESS TOO SHORT!" 














500 


GOTO 320 














510 


PRINT " "5 . 














520 


FOR X=l TO LEN(W*) 














530 


I F SEG* ( 6* , X , 1 ) =SEGt- ( U* , X , 1 ) THEN 540 ELSE 550 














540 


GOSUB 620 














550 


IF SEG-$ (.G-$ , X , 1 ) < >SEG* (U-¥ , X , 1 ) THEN 560 ELSE 570 














560 


GOSUB 650 














570 


NEXT X 














580 


PRINT 














590 


IF R=LEN (Wf) THEN 670 














600 


N==N-i-l 














6 1 


GOTO 340 














619 


REM -a-** CORRECT LETTER **» 














620 


PRINT "1":, 














630 


R=R+ 1 














640 


RETURN 














649 


REM INCORRECT LETTER *** 














650 


PRINT "0"; 














660 


RETURN 














670 


CALL CLEAR 














680 


PR I NT "GOT IT I N " ; N ? " TURN ( S ) " 














690 


PRINT 














700 


PRINT "PRESS (ENTER) TO PLAY" 














710 


INPUT R* 














720 


GOTO 210 • • 














730 


DATA LETC I CER , 69 , 76 j 69 , 67 , 84 , 82 ., 73 , 67 , SGEAROOUUT 


,79 




, 84 , 82 


,65, 


7 1 , 


69 , " 


79 , 85 5 83 














740 


DATA ACTANPEuOL , 67 , 65 . 78 , 84 , 65 , 76 , 79 , 85 , 80 , 69 














750 


DATA LABTEKSABL , 66 , 65 , 83 , 75 , 69 ., 84 , 66 , 65 , 76 , 76 














760 


DATA TAN I RUC , 67 , 85 . 82 , 84 , 65 , 73 78 , T AMELP AC , SO , 76 


,65 


,67 




77 


, 65 , 


84 


770 


DATA ONUSHC 1 , 67 ? 85 , S3 , 72 , 73 , 79 , 78 , WOLCRADY , 67 , 79 


,87 


, 65 




C3 
•~J K.J 


, 76 , 


89 


780 


DATA DEL I S , 83 , 76 , 73 , 68 69 , TAR 1 UG , 7 1 , 85 , 73 , 84 , 65 , 


82, 


OWE 




4, 




7, 


69 , 76 














790 


DATA MUTESOC , 67 , 79 , S3 „ 84 , 85 , 77 , 69 , YOGO I LB , 66 , 73 , 


79 , 


76, 


79 , 7 




39 




800 


DATA ACRTEP , 67 , 65 , 82 , 80 , 69 , 84 , ARERES , 69 , 82 , 65 ., 83 


,69 


,82 










810 


DATA ELTKET , 75 , 69 , 34 , 84 , 76 , 69 , REU I CTP , 80 73 , 67 = 8 


4 , 8 


i~: a 










820 


DATA 1 1 SGNYF , 83 , 73 , 7 1 , 78 , 73 , 70 ., 89 , ORDA I , 82 , 65 , 68 


"7 

V ' •-' 


,79 










830 


DATA Z EERP AT , 84 , 82 , 65 „ 80 , 69 . 90 , 69 , 
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10 AWESOME PROGRAMS FROM K-POWER 



1RS-80 Color Computer 




■ 


1 RPM Linpn SCRAMBLE TRS— 80 COLOR *** 






10 CLS 






£0 PRIlvlT "WORD SCRAMBLE" 






30 PRINT 






40 PRINT "UNSCRflMBLE WORDS BY TYPING" 






50 PRli^JT "YOUR GUESSES. THE COMPUTER" 






60 PRINT "SHOWS YOU WHICH LETTERS ARE" 






70 PRINT "CORRECT. FOR EXAMPLE:" 






80 PRINT 






90 PRINT "THE COMPUTER PRINTS, ' SEUGS' " 






100 PRINT "THE ACTUAL WORD IS 'GUESS'." 






110 PRINT "IF YOU TYPE ' 6EUSS' , THE" 






120 PRINT "COMPUTER WILL RESPOND WITH" 






130 PRINT "'10011', MEANING THE FIRST, " 






140 PRINT "FOURTH, & FIFTH LETTERS ARE IN" 






150 PRINT "CORRECT LOCATIONS. PRESS ANY" 






160 PRINT "KEY TO BEGIN. " 






170 ft*=INKEY* 






180 IF A«=""THEN 178 






190 U*="" 






199 REM ♦** READ SCRAMBLED WORD 






200 READ W$ 






210 IF W*="0" THEN RUN 






220 FOR X=l TO LEN(W*) 






£30 READ CH(X) 






£40 U$=U$+CHR$(CH(X) ) 






£50 NEXT X 






260 G=l 






£70 CLS 






280 PRINT "PRESS ' N' + (ENTER)" 






290 PRINT "FOR ft NEW WORD. " 






£99 REM «♦* GUESS LOOP **♦ 






300 PRINT 






310 PRINT "THE SCRAMBLED WORD IS:" 






320 PRINT 






330 PRINT " "W* 






340 PRINT 






350 R=0 






360 PRINT "TYPE YOUR GUESS, " 






370 PRINT "THEN PRESS (ENTER) " 






380 PRINT 






390 INPUT G* 






400 IF G*="N" THEN 190 






410 IF LEN(G*)>LEN(W*) THEN PRINT "GUESS TOO 


LONG ! " 


:GOTO 310 


420 IF LEN(G*) (LEN(W*) THEN PRINT "(BUESS TOO 


SHORT ! 


":GOTO 310 


430 PRINT " 






440 FOR X=l TO LEN(W$) 






450 IF MID*(G*, X, 1)=MID*(U*, X, 1) THEN GOSUB 1 


520 




460 IF MID*(G*, X, 1) (>MID*(U*, X, 1) THEN GOSUB 


550 




470 NEXT X 






480 PRINT 






490 IF R=LEN(G*) THEN 570 






500 6=G+i 






513 GOTO 300 






519 REM CORRECT LETTER 






520 PRINT "1"; 
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530 R=R+i 
540 RETURN 

549 REM *** INCORRECT LETTER 

550 PRINT "0"; 
560 RETURN 
570 CLS 

580 PRINT "GOT IT IN "G" TURN(S)" 
590 PRINT 

600 PRINT "PRESS fiNY KEY TO RUN flGfilN" 
610 fi*=INKEY* 

520 IF fl*="" THEN GOTO 610 
630 GOTO 190 

1000 DflTfl LETCICER,6g, 76, 69, 67, 84, 82,73, 67 
1010 DflTfl SGEflR00UUT,7g,85,84,82,65,71,69,79,85, e3 
1020 DflTfl flCTflNPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 
1030 DflTfl flLBTEKSflBL, 66, 65, 83, 75, 69, 84, 66, 65, 76, 76 

1040 DflTfl TflNIRUC, 67, 85, 82, 84, 65, 73, 78, TflMELPflC, 80, 76, 65, 67, 69, 77, 65, 84 
1050 DflTfl ONUSHCI , 67, 85, 83, 72, 73, 79, 78, WOLCRflDY, 67, 79, 87, 65, 82, 68, 76, 89 
1060 DflTfl DELIS, 83, 76, 73, 68, 69, TflRIUG, 71, 85, 73, 84, 65, 82, DWELT, 84, 79, 87, 
69,76 

1070 DflTfl MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71, 89 
1080 DflTfl flCRTEP, 67, 65, 82, 80, 69, 84, flRERES, 69, 82, 65, 83, 69, 82 
1090 DflTfl ELTKET, 75,69,84,84,76,69, REUICTP, 80, 73,67,84,85,82, 69 
1100 DflTfl IISGNYF,83,73,71,78, 73,70,89,ORDflI,82,65, 68,73, 79 
, 1110 DflTfl ZEERPflT, 84, 82, 65, 80, 69, 90, 69, 

TRS-80 Model III and Model 4 

1 REM *** WORD SCRAMBLE TRS-80 MODELS 3 AND 4 *** 
10 CLS 

20 PRINT "WORD SCRAMBLE" 
30 PRINT 

40 PRINT "UNSCRAMBLE WORDS BY TYPING" 
50 PRINT "YOUR GUESSES. THE COMPUTER" 
60 PRINT "SHOWS YOU WHICH LETTERS ARE" 
70 PRINT "CORRECT. FOR EXAMPLE:" 
SO PRINT 

90 PRINT "THE COMPUTER PRINTS, 'SEUGS'" 

100 PRINT "THE ACTUAL WORD IS 'GUESS'." 

110 PRINT "IF YOU TYPE 'GEUSS' THE " 

120 PRINT "COMPUTER WILL RESPOND WITH" 

130 PRINT "'10011', MEANING THE FIRST," 

140 PRINT "FOURTH, 8< FIFTH LETTERS ARE IN" 

150 PRINT "CORRECT LOCATIONS. PRESS ANY" 

160 PRINT "KEY TO BEGIN." 

170 A*=INKEY* 

180 IF A*="" THEN 170 

190 U*="" 

199 REM *** READ SCRAMBLED WORD *** 

200 READ W* 

210 IF •W*="0" THEN RUN 

220 FOR X=l TO LEN(W*) 

230 READ CH(X) 

240 U*=U*+CHR*(CH(X) ) 

250 NEXT X 

260 G=l 

270 CLS 

280 PRINT "PRESS 'N' + (ENTER) 
290 PRINT "FOR A NEW WORD." 
299 REM *** GUESS LOOP *** 
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300 PRINT 




310 PRINT "THE SCRAMBLED WORD IS:" 




320 PRINT 




330 PRINT " "W« 




340 PRINT 




350 R=0 




360 PRINT "TYPE YOUR GUESS, " 




370 PRINT "THEN PRESS (ENTER)" 




380 PRINT 




390 INPUT G* 




400 IF G*«"N" THEN 190 




410 IF LEN<G*) >LEN<W«) THEN PRINT "GUESS TOO LONG !": GOTO 310 




420 IF LEN(G*)<LEN(W*) THEN PRINT "GUESS TOO SHORT !": GOTO 310 




430 PRINT " 




440 FOR X=l TO LEN(W*) 




450 IF MID*<G*,X,1)=MID«(U*,X,1) THEN GOSUB 520 




460 IF MID*(G*,X, 1)<>MID*(U*,X, 1) THEN GOSUB 550 




470 NEXT X 




480 PRINT 




490 IF R=LEN(G*) THEN 570 




500 G=G+1 




510 GOTO 300 




519 REM CORRECT LETTER *«* 




520 PRINT "1"; 




530 R=R+1 




540 RETURN 




549 REM ♦** INCORRECT LETTER ♦** 




550 PRINT "0"; 




560 RETURN 




570 CLS 




580 PRINT "GOT IT IN "G" TURN(S)" 




590 PRINT 




600 PRINT "PRESS ANY KEY TO RUN AGAIN" 




610 A*=INKEY* 




620 IF A*="" THEN GOTO 610 




630 GOTO 190 




640 DATA LETCICER,69,76,69,67,84,a2,73,67 




650 DATA SGEAR00UUT,79,85,84,82,65,71,69,79,85,83 




660 DATA ACTANPEU0L,67,65,78,a4,65,76,79,85,80,69 




670 DATA ALBTEKSABL , 66 , 65 , 83 , 75 , 69 , 84 , 66 , 65 , 76 , 76 




680 DATA TAN I RUC , 67 , 85 , 82 , 84 , 65 , 73 , 78 , T AMELP AC , 80 , 76 , 65 , 67 , 69 , 77 


,65,84 


690 DATA ONUSHC 1 , 67 , 85 , 83 , 72 , 73 , 79 , 78 , WOLCR ADY , 67 , 79 , 87 , 65 , 82 !. 68 


,76,89 


700 DATA DELIS, 83, 76,73, 68, 69, TARIUG, 71 , 85, 73, 84, 65, 82, OWELT, 84, 79, 87. 


69,76 




710 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71 , 


89 


720 DATA ACRTEP,67,65,S2,S0,69,84,ARERES,69,S2,65,83,69,82 




730 DATA ELTKET , 75 , 69 , 84 , 84 , 76 , 69 , REU I CTP , 80 , 73 , 67 , 84 , 85 , 82 , 69 




740 DATA IISGNYF,83,73,71,7a,73,70,89,0RDAI,a2,65,6a,73,79 




750 DATA ZEERPAT,84,82,65,80,69,90,69,0 




VlC-20 




1 REM #** WORD SCRfiMBLE VIC-20 *** 




10 PRINT CHR*(147) 




Ser PRINT "WORD SCRAMBLE" 




30 PRINT 




40 PRINT "UNSCRAMBLE WORDS BY" 




50 PRINT "TYPING YOUR GUESSES." 




60 PRINT "THE COMPUTER SHOWS" 




70 PRINT "YOU WHICH LETTERS ORE" 
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80 PRINT "CORRECT. FOR EXAMPLE:" 




90 PRINT 




100 PRINT "THE COMPUTER PRINTS, " 




110 PRINT "»SEUGS». THE OCTUfiL" 




120 PRINT "WORD IS » SUESS» . IF" 




130 PRINT "YOU TYPE ' GEUSS' , THE" 




140 PRINT "COMPUTER WILL RESPOND" 




150 PRINT "WITH »10011», MEANING" 




160 PRINT "THE FIRST, FOURTH, &" 




170 PRINT "FIFTH LETTERS ARE IN" 




180 PRINT "THE CORRECT LOCATIONS. " 




190 PRINT "PRESS (SHIFT) TO PLAY" 




200 GOSUB 3000 




210 U*="" 




219 REM ♦** READ SCRAMBLED WORD **♦ 




220 READ W$ 




230 IF W*="0" THEN RUN 




239 REM *** READ ACTUAL WORD *»# 




240 FOR X=l TO LEN(W*) 




250 READ CH(X) 




260 U*=U*+CHR*(CH<X) ) 




270 NEXT X 




280 G=l 




290 PRINT CHR*(147) 




300 PRINT "PRESS » N' + (RETURN)" 




310 PRINT "FOR A NEW WORD. " 




319 REM **♦ GUESS LOOP *♦* 




320 PRINT 




330 PRINT "THE SCRAMBLED WORD IS:" 




340 PRINT 




350 PRINT " "W* 




360 PRINT 




370 R=0 




380 PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)" 




390 PRINT 




400 INPUT G* 




410 IF G*="N" THEN 210 




420 IF LEN(G*)>LEN(W*) THEN PRINT "GUESS TOO LONG!" 


:GOTO 330 


430 IF LEN(G*) <LEN(W*) THEN PRINT "GUESS TOO SHORT! 


"sGOTO 330 


440 PRINT " . 




450 FOR X=l TO LEN(W*) 




460 IF MID*(G*, X, 1)=MID*(U*, X, 1) THEN GOSUB S30 




470 IF MID*(G*, X, 1) (>MID*(U*, X, 1) THEN GOSUB 560 




480 NEXT X 




490 PRINT 




500 IF R=LEN(G*) THEN 580 




510 G=G+1 




520 GOTO 320 




529 REM ♦** CORRECT LETTER ROUTINE *** 




530 PRINT "1"; 




540 R=R+i 




550 RETURN 




559 REM **» INCORRECT LETTER ROUTINE *** 




560 PRINT "0"s 




570 RETURN 




580 PRINT CHR*(147) 




590 PRINT GOT Ii IN G TURN (S) 




600 PRINT 




610 PRINT "PRESS (SHIFT) TO PLAY" 
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620 60SUB 3000 
630 GOTO £10 

1000 DflTfi LETCICER, 69, 76, 69, 67, 84, 82, 73, 67, SGEfiROOUUT, 79, 85, 84, 82, 65, 71 , 
69, 79 

1010 DfiTfl 85,83,flCTANPEUOL,67,65,78,84,65,76,79,85,a0,69 
1020 DATA LflBTEKSflBL, 66, 65, 83, 75, 69, 84, 66, 65, 76, 76 

1030 DATA TANI RUC, 67, 85, 82, 84, 65, 73, 78, TAMELPAC, 80, 76, 65, 67, 69, 77, 65, 84 
1040 DATA ONUSHCI , 67, 85, 83, 72, 73, 79, 78, WOLCRADY, 67, 79, 87, 65, 82, 68, 76, 89 
1050 DATA DELIS, 83, 76, 73, 68, 69, TARIUG, 71, 85, 73, 84, 65, 82, DWELT, 84, 79, 87, 
69,76 

1060 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71, 89 
1070 DATA ACRTEP, 67, 65, 82, 80, 69, 84, ARERES, 69, 82, 65, 83, 69, 82 
1080 DATA ELTKET, 75, 69, 84, 84, 76, 69, REUICTP, 80, 73, 67, 84, 85, 82, 69 
1090 DATA IIS6NYF,83,73,7l,78,73,70,a9,ORDAI,82,65,68,73,79 
1100 DATA ZEERPAT, 84, 82, 65, 80, 69, 90, 69, 
3000 WAIT 653, 1 
3010 WAIT 653, 1, 1 
3020 RETURN 
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BONUS PROGRAM #4 

SECRET CODES 

Now. SECRET CODES can be sent between you and a pal . And 
no one will know what you're sayi ng . . . wi thout the SECRET 
CODE encoder/decoder program. To use it convert a message 
into code by selecting ENCODE from the menu. Then type 
your message in normal English. Next, write the encoded 
message down as it appears on the computer screen. Return 
it the main menu and select DECODE. Then type the encoded 
message you wrote, and watch the computer decode the 
message. This program will decode all letters and 
numbers, question marks, periods, and spaces. Commas 
aren't allowed and may cause errors on some corrsputer-s. 



ADAM 

1 REM *** SECRET CODE ADAM *** 

9 REM *** dimension code arrays *** 

10 DIM a$(39) 

20 DIM c$(39) 

29 REM initialize code arrays *** 

30 FOR X = 1 TO 39 
40 READ a$(x) 

50 READ c$(x) 
60 NEXT X 

69 REM *** main menu *** 

70 HOME 

80 PRINT "SECRET CODE PROGRAM" 
90 PRINT 

100 PRINT "Type the number of your choice" 
110 PRINT "then press (RETURN)." 
120 PRINT 

130 PRINT "l)Encode a message" 
140 PRINT "2) Decode a message" 
150 PRINT 

160 INPUT "Which one: "; ch 

170 IP ch < 1 OR ch > 2 THEN 160 

180 ON ch GOTO 200, 500 

199 REM *** encode routine *** 

200 HOME 

210 PRINT "Type your message, two lines" 
220 PRINT "max. at one time please! Use" 
225 PRINT "only CAPITALS and no commas!" 
230 PRINT "Type '0' and press (RETURN)" 
240 PRINT "to go to the main menu." 
250 PRINT 

260 PRINT "What is your message" 

270 INPUT m$ 

280 IP m$ = "0" THEN 70 

290 PRINT 

300 PRINT "Now encoding..." 
310 PRINT 

320 PRINT "Here's the code:" 
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330 PRINT 

340 FOR X = 1 TO LEN(m$) 
350 FOR m = 1 TO 39 

360 IP MID$(m$, x, 1 ) = a$(m) THEN PRINT g$(iii); 
370 NEXT m 

380 NEXT X ° 
390 PRINT 
400 PRINT 

■ 410 PRINT "Press any key to continue." 
420 GET n$ 
430 GOTO 70 

499 REM decode routine *** 

500 HOME 

510 PRINT "Type your coded message, two lines" 

520 PRINT "max. at one time please!" 

525 PRINT "Use only CAPITALS." 

530 PRINT "Type '0' and press (RETURN)" 

540 PRINT "to return to the main menu." 

550 PRINT 

560 PRINT "What is the coded message" 

570 INPUT c$ 

580 IP c$ = "0" THEN 70 

590 PRINT 

600 PRINT "Now decoding..." 
610 PRINT 

620 PRINT "Here's the message:" 
630 PRINT 

640 POR X = 1 TO LEN(c$) 
650 POR m = 1 TO 39 

660 IP MIi)$(c$, X, 1) = c$(m) THEN PRINT a$(m); 
670 NEXT m 
680 NEXT X 
690 PRINT 
700 PiRINT 

710 PRINT "Press any key to continue." 
720 GET n$ 
730 GOTO 70 

1000 DATA A,P," "," ",B,H,C,U,I),Y,E,Z,P,0,G,J,H,I 
1010 DATA I,Q,J,S,K,¥,L,A,M,C,N,M,0,T,P,V,Q,P 
1020 DATA R,K,S,D,T,G,U,B,V,E,W,I,X,N,Y,X,Z,R 
1030 DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 
1040 DATA 6,4,7,5,8,6,9,8,?,? 

Apple 11 and Apple He 

1 REM SECRET CODE APPLE 

9 REM *** DIMENSION CODE ARRAYS 

10 DIM A$(39) 
20 DIM C:i-<.39) 

29 REM INITIALIZE CODE ARRAYS 

30 FOR X 1 TO 39 
40' READ A*(X) 

50 READ C$<X) 

60 NEXT X 

69 REM *** MAIN MENU **■>!• 

.70 HOME 

80 PRINT "SECRET CODE PR0G3RAM" 

90 PRINT 

100 PRINT "TYPE THE NUMBER OF YOUR CHOICE" 
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110 


PRINT 


"THEN PRESS (RETURN) , " 




120 


PRINT 






130 


PRINT 


"DENCODE A MESSAGE" 




140 


PRINT 


"2) DECODE A MESSAGE" 




150 


PRINT 






160 


INPUT 


"WHICH ONES "jCH 




170 


IF CH 


< 1 OR CH > 2 THEN 160 




180 


ON CH 


GOTO 200,500 




199 


REH *** ENCODE ROUTINE *** 




200 


HOME 






210 


PR I NT 


"TYPE YOUR MESSAGE TWO 1 TNES" 




220 


PRINT 


"MAX, AT ONF TIME PLEASF ' " 




225 


PR I NT 


"NO COMMAS ALLOWED'" 




230 


PR I NT 


"TYPE 'O' AND PRE.^S (RETURN)" 




240 


PRINT 


"TO GO TO THE MAIN MENU. " 




250 


PRINT 






260 


PRINT 


"WHAT IS YOUR MESSAGE" 




270 


INPUT 


M* 




280 


IF m 


= "0" THEN 70 




290 


PRINT 






300 


PRINT 


"NOW ENCODING, . . " 




310 


PRINT 






320 


PRINT 


"HERE'S THE CODEs " 




330 


PRINT 






340 


FOR X 


= 1 TO LEN (M$) 




350 


FOR M 


= 1 TO 39 




360 


IF MID$ (M:*:,X.l) = A*(M) THEN PRINT 


C* (M) ; 


370 


NEXT M 




3S0 


NEXT X 






390 


PRINT 






400 


PRINT 






410 


PRINT 


"PRESS ANY KEY TO CONTINUE." 




420 


GET N* 






, 430 


GOTO 7 







499 


REM *** DECODE ROUTINE 




500 


HOME 






510 


PRINT 


"TYPE YOUR CODED MESSAGE, TWO LINES" 


520 


PRINT 


"MAX. AT ONE TIME PLEASE!" 




530 


PRINT 


"TYPE '0' AND PRESS (RETURN)" 




540 


PRINT 


"TO RETURN TO THEN MAIN MENU." 




550 


PRINT 






560 


PRINT 


"WHAT IS THE CODED MESSAGE" 




570 


INPUT 


C* 




580 


IF C* 


^ "0" THEN 70 




590 


PRINT 






600 


PRINT 


"NOW DECODING " 




610 


PRINT 






620 


PRINT 


"HERE'S THE MESSAGE?" 




630 


PRINT 






640 


FDR X 


--■ 1 TO LEN (C*) 




650 


FOR M 


1 TO 39 




660 


IF MID* (C$,X,1) = C$<M) THEN PRINT 


A:1-<M)? 


670 


NEXT M 






680 


NEXT X 






690 


PRINT 






700 


PRINT 






"7 i 


PRINT 


"PRESS ANY KEY TO CONTINUE. " 




720 


GET N* 






730 


GOTO 70 
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1000 


DATA A,F," " ,B,H,C,U,D//,E,Z,F, 


0, 


G 


, J , H , L 


1010 


DATA I,Q,J,S,K,W,L,A,M,C,N,M,0,T,P, 


V, 


Q 




i AO A 
1 Uji.U 




X , 


7 

L 




1030 


DATA - , , ,0,9,1,7,2,3,3,0,4,2,5,1 








1040 


DATA 6,4,7,5,8,6,9,8,?,? 








Atari 










1 REM SECRET CODE ATARI -^^-^ 








9 REM -^^^ D I MENS I ON CODE ARRAYS 








1 D I M ( 1 200 ) , m ( 1 200 ) 








20 Din C:^(39) ,A*(39) 








30 DIM R:|:(l) ,Ai:i^(l) ,Cii^(l) 






* 


39 REM INITIALIZE CODE ARRAYS 








40 F"OR X^=--i TO 39 








50 READ Ai^- 








60 A:$:(X)=Ai:ili: 








70 READ CI -4? 








SO C-^(X)^C1'^' 








90 NEXT X 








99 REM MAIN MENU ^■'^■^ 








100 


PRINT CHR*(125) 








110 


PRINT "SECRET CODE PROGRAM" 










I r\, .u 1 M 1 








130 


PRINT "TYPE THE NUMBER OF YOUR CHOICE" 








140 


PRINT "THEN PRESS THE (RETURN) KEY." 








150 


PRINT 








160 


PRINT "DENCODE A MESSAGE" 








170 


PRINT "2) DECODE A MESSAGE" 








180 


PRINT . 








190 


PRINT "WHICH ONE"? 








200 


INPUT CH 








2 1 


IF CH<1 OR CH>2 THEN 190 








220 


ON CH GOTO 230,500 








''?^?^ 


REM ENCODE ROUTINE 








230 . 


PRINT CHR*(125> 








240 


PRINT "TYPE YOUR MESSAGE, TWO LINES," 










rKliMl IiHAj. nun HIML/ !MU LLmI! IHL« r L.j.;..f~KjL. . 








260 


PRINT "TYPE '0' AND PRESS (RETURN)" 








270 


PRINT "TO THE MAIN MENU« " 








280 


PRINT 








290 


PRINT "Wi-IAT IS YOUR MESSAGE" 








300 


INPUT M$ 








3 1 


IF M*="0" THEN 100 










PRINT . 










PRINT "NOW ENCODING,. „„,. " 








340 
350 


PRINT 

PRINT "HERE'S THE CODE:" 








360 


PRINT 








370 


FOR S=--^i TO LEN(M$) 








380 


FOR M==l TO 39 








390 


I F m- (S,S> = A$ < M , M ) THEN PR I NT ( M , M > ; 








400 


NEXT M 








410 


NEXT S 








420 


PRINT 








430 


PRINT 








440 


PRINT "PRESS (RETURN) TO CONTINUE."; 








450 


GQSUB 2000 








460 


GOTO 100 








499 


REM *** DECODE ROUTINE *** 
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500 PRINT CHR*(125) 

510 PRINT "TYPE YOUR CODED MESS ABE, TWO LINES" 
520 PRINT "MAXIMUM - NO COMMAS PLEASE!" 
530 PRINT "TYPE 'O' AND PRESS (RETURN)" 
540 PRINT "TO RETURN TO THE MAIN MENU." 
550 PRINT 

560 PRINT "WHAT IS THE CODETD MESSAGE" 

570 INPUT m 

580 IF N*="0" THEN 100 

590 PRINT 

600 PRINT "NOW DECODING. » . . " 
610 PRINT 

620 PRINT "HERE'S THE MESSAGES" 
630 PRINT 

640 FOR X=l TO LEN(N*) ' 
650 FOR M=l TO 39 

660 IF N-f- ( X , X ) =Ct- ( M , M ) THEN PR I NT At ( M , M > 3 
670 NEXT M 
680' NEXT X 
690 PRINT 
700 PRINT 

710 PRINT "PRESS (RETURN) TO CONTINUE."? 
720 GOSUB 2000 
730 GOTO 100 

1000 DATA A,F, , , B , H , C , U , D , Y , E , Z , F , , G , J , H , L 
1010 DATA I ,Q, J,S,K,W,L,A,M,CsN5M,0,T,P,V,Q,P 
1 020 DATA R , K , S , D , T , G , U , B , V , E , W , I , X , N Y , X , Z , R 
1030 DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 
1040 DATA 6,4,7,5,0,6,9,8,?,? 

1999 REM *** INPUT ROUTINE 

2000 INPUT R* 
2010 RETURN 

Commodore 64 

1 REM **« SECRET CODE 64 *** 

9 REM **♦ DIMENSION CODE ARRflYS *** 

10 DIM A«<39) 
20 DIM C*(39) 

29 REM *** INITIALIZE CODE ARRAYS **♦ 

30 FOR X=l TO 39 
40 READ A«(X) 

50 READ C*(X> 
60 NEXT X ' 

69 REM *** LE MAIN MENU 

70 PRINT CHR*<147) 

80 PRINT "SECRET CODE PROGRAM" 
90 PRINT 

100 PRINT "TYPE THE NUMBER OF YOUR CHOICE" 
110 PRINT "THEN PRESS THE (RETURN) KEY." - 
120 PRINT 

130 PRINT "D ENCODE A MESSAGE" 
140 PRINT "£) DECODE A MESSAGE" 
150 PRINT 

160 INPUT "WHICH ONE"?CH 
170 IF CH<1 OR CH>£ THEN 160 
180 ON CH GOTO 200,500 

199 REM ♦*♦ ENCODE ROUTINE *♦* 

200 PRINT CHR*<147) 
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£10 PRINT "TYPE YOUR MESSfiGE, TWO LINES" 
220 PRINT "MAXIMUM. NO COMMAS ALLOWED!" 
£30 PRINT "TYPE » 0» AND PRESS (RETURN)" 
£40 PRINT "TO GO TO THE MAIN MENU." 
250 PRINT 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT M* 

£80 IF M*="0" THEN 70 

£90 PRINT 

300 PRINT "NOW ENCODING " 

310 PRINT 

320 PRINT "HERE'S THE CODE:" 
3313 PRINT 

340 FOR X=l TO LEN(M*) 
3513 FOR M=l TO 39 

360 IF MID*<M*, X, i)=A*(M) THEN PRINT C*<M)-, 
370 NEXT M 
380 NEXT X 
390 PRINT 
400 PRINT 

410 PRINT "PRESS (SHIFT) TO CONTINUE." 
420 GOSUB 3000 
430 GOTO 70 

499 REM **♦ DECODE ROUTINE *** 

500 PRINT CHR*(147) 

510 PRINT "TYPE YOUR CODED MESSAGE, TWO LINES" 
520 PRINT "MAX. AT ONE TIME, PLEASE!" 
530 PRINT "TYPE '0' AND PRESS (RETURN)" 
540 PRINT "TO RETURN TO THE MAIN MENU. " 
550 PRINT 

560 PRINT "WHAT IS THE CODED MESSAGE" 

570 INPUT C« 

580 IF C*="0" THEN 70 

590 PRINT 

600 PRINT "NOW DECODING " 

610 PRINT 

620 PRINT "HERE'S THE MESSAGES" 
630 PRINT 

640 FOR X=l TO LEN(C*) 
650 FOR M=l TO 39 

.660 IF MID*(C*, X, 1)=C*(M) THEN PRINT A*(M) ; 
670 NEXT M 
680 NEXT X 
690 PRINT 
700 PRINT 

710 PRINT "PRESS (SHIFT) TO CONTINUE." 
7£0 GOSUB 3000 
730 GOTO 70 

1000 DATA A,F, " "," ",B, H,C, U,D, Y,E, Z,F, D,G, J,H,L 
1010 DATA I, Q, J, S, K, W, L, A, M, C, N, M, 0, T, P, V, Q, P 
1020 DATA R, K, S, D, T, G, U, B, V, E, W, I, X, N, Y, X, Z, R 
1030 DATA . , . , 0, 9, 1 , 7, 2, 3, 3, 0, 4, £, 5, 1 
1040 DATA 6, 4, 7, 5, 8,6,9,8,?,? 

2999 REM ♦** WAIT ROUTINE *♦* 

3000 WAIT 653, 1 
3010 WAIT 653, 1,1 
3020 RETURN 
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IBM PC 

1 REM **« SECRET CODE IBM~PC *** 

9 REM DIMENSION CODE ARRAYS *** 

10 DIM A*(64) 
20 DIM C*(64) 

30 FOR X=l TO 40 
4i READ A*(X) 
50 READ C*(X) 
60 NEXT X 

69 REM **♦ MAIN MENU **♦ 

70 CLS 

80 PRINT "SECRET CODE PROGRAM" 
90 PRINT 

100 PRINT "SECRET CODE PR06RAM" 
110 PRINT "THEN PRESS (ENTER)." 
120 PRINT 

130 PRINT "DENCODE A MESSAGE" 
140 PRINT "2) DECODE A MESSAGE" 
150 PRINT 

160 INPUT "WHICH ONE";CH 
170 IF CH<i OR CH>2 THEN 160 
180 ON CH GOTO 200,500 

199 REM *** ENCODE ROUTINE *** 

200 CLS 

210 PRINT "TYPE YOUR MESSAGE" 

220 PRINT "2 LINES MAXIMUM AT A TIME" 

230 PRINT "OR TYPE '0' AND PRESS" 

240 PRINT "(ENTER) FOR MENU." 

250 PRINT 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT M* 

280 IF M*="0" THEN 70 

290 PRINT 

300 PRINT "NOW ENCODING, . . " 
310 PRINT 

320 PRINT "HERE'S THE CODE:" 
330 PRINT 

340 FOR X=l TO LEN(M*) 
350 FOR M=l TO 40 

360 IF MID*(M$,X, l)=At (M) THEN PRINT C4:(M)!! 
370 NEXT M 
380 NEXT X 
390 PRINT 
400 PRINT 

410 PRINT "PRESS (ENTER) TO CONTINUE" 
420 GOSUB 3000 
430 GOTO 70 

499 REM *** DECODE ROUTINE #** 

500 CLS 

510 PRINT "TYPE A CODED MESSAGE" 
520 PRINT "2 LINES MAXIMUM AT A TIME" 
530 PRINT "OR TYPE -0' AND PRESS" 
540 PRINT " (ENTER) FOR MENU. " 
550 PRINT 

560 PRINT "WHAT IS THE CODE" 

570 INPUT C* 

580 IF C*="0" THEN 70 
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OO T KIT 










610 


Ct C!!t T KIT* 

PR I NT 




620 


PRINT HERE S THE MESSAGES 




630 


ftdt T KIT 

PR I NT 




640 


rUK A— 1 IU L.fc:.N\U*/ 




/crrj* 


r Ur\ ri--l IU *tvci 




OO0 


Tir M T n* / n-* y 1 wp-*:^m^ TWPW PRTIMT A*^M) 
1 r n 1 JL/-*- \ Lff* If A 1) 1 / — Lf*" \ n / 1 nciM r rv i im i m-T" \ i \ / 


a m 


/ -7171 

6 70 


Kicrv"r ivi 
NEa 1 n 




680 


NEXT X 




690 


r"t r~i T K 1 T" 

PR I NT 






C!«Ct T KIT* 

r K 1 N 1 




710 


rKlNI rKn.i3o VfeirNlfcLhi/ IU UUIm I XImuei. 




720 


BOSUB 3000 




730 


GOTO 70 




1000 DATA A,F," "," " ,B,H,C,U,D,Y,E,Z,F,0, 


R .1 H 1 


1010 DATA I ,Q,J ,S,K,W,L,A,M,C,N,M,0,T,P,V, 


n p 


1020 DATA R,K,S,D,T,e,U,B,V,E,W, J: ,X,N,Y,X, 


7 p 


103 


DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 




1040 DATA 6,4,7,5,8,6,9,8,",",",",?,? 




3000 INPUT R* 




3010 RETURN 




TI-99/4A 




1 REM SECRET CODE TI99/4A *** 




9 R 


EM DIMENSION CODE ARRAYS *** 




10 


DIM A*<41) 




20 . 


DIM C:$:(4i) 




30 


FOR X«i TO 39 




40 


f^EAD Af<X> 




50 


READ C*(X) 




AO 


NEIXT X 




69 


REM MAIN MENU *** 




70 


CALL CLEAR 




80 


PRINT "SECRET CODE PROSRAM" 




90 


PRINT 




100 


PRINT "TYPE A NUMBER," 




110 


PRINT "THEN F'RESS (ENTER) . " 




120 


PRINT 




130 


PRINT "DENCODE A MESSA6E" 




140 


PRINT "2) DECODE A MESSAGE" 




150 


PRINT 




160 


PRINT "WHICH ONE"; 




170 


INPUT CI! 




1 OA 


IF CH<1 THEN 160 




1 90 


IF CH>2 THEN 160 




200 


ON CH GOTO 210,470 




209 


REM ENCODE ROUTINE 




210 


CALL CLEAR 




220 


PRINT "TYPE YOUR MESSAGE" 




230 


PRINT "2 LINES MAXIMUM PLEASE." 




240 


PRINT "NO COMMAS ALLOWED!" 




25C 


PRINT "TYPE '0' AND PRESS"' 




260 


PRINT "(ENTER) FOR MENU." 




27C 


PRINT 




2SC 


PRINT "WHAT IS YOUR MESSAGE" 




29C 


1 INF-'UT 




300 


IF M$:^^--"0" THEN 70 




3 1 


PRINT 
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320 PRINT "NOW ENCODING. . . . " 
330 PRINT 

340 PRINT "HERE'S THE CODEs " 
350 PRINT 

360 FOR X=l TO LEN(M*) 
370 FOR M=:l TO 40 

380 IF SEG$(M$,X, J.)=A*(M)THEN 390 ELSE 400 

390 PRINT C*(M) ; 

400 NEXT M 

410 NEXT X 

420 PRINT 

430 PRINT 

440 PRINT "PRESS (ENTER) TO CONTINUE." 
450 60SUB 780 
460 GOTO 70 

469 REM *** DECODE ROUTINE *** 

470 CALL CLEAR 

480 PRINT "TYPE. A CODED MESSAGE-" 
490 PRINT "2 LINES MAXIMUM PLEASE." 
500 PRINT "NO COMMAS ALLOWED!" 
510 PRINT "TYPE' '0' AND PRESS" 
520 PRINT "(ENTER) FOR MENU„ " 
530 PRINT 

540 PRINT "WHAT IS THE CODE" 

550 INPUT CO* 

560 IF C0#="0" THEN 70 

570 PRINT 

580 PRINT "NOW DECODING. . u , " 
590 PRINT 

600 PRINT "HERE'S THE MESSAGE;;" 
610 PRINT 

620 FOR X=l TO LEN(CO$) 
630 FOR M=:l TO 40 

640 IF SEGii (CO*, X , i ) (M) THEN 650 ELSE 400 

650 PRINT A*(M) ; 

660, NEXT M 

670 NEXT X 

680 PRINT 

690 PRINT 

700 PRINT "PRESS (ENTER) TO CONT„ " 
710 GOSUB 7S0 
720 GOTO 70 

730 DATA AJ--," "," " , B , H , C , U , D , Y , E , Z , F , , 6 , J J-l , L 
740 DATA I , Q , J , S , K , W , L , A , M , C , N , M , □ , T ., P , V , Q , F' 
750 DATA R , i< , S , D , T „ G , U ., B , V , E , (a! , l „ X , N , Y . X , Z , R 
760 DATA .,,,,0,9,1, 7 , 2,3, 3 , , 4 ,2,5,1 
770 DATA 6,4, 7 , 5 ,8,6,9,8,?, '? 
780 INPUT R* 
790 RETURN 

TRS-80 Color Computer 

1 REM *** SECRET CODE TRS~80 COLOR *** 

9 REM *** DIMENSION CODE ftRRfiYS *** 

10 DIM fl*(40) 
20 DIM C*(40) 

30 FOR X=l TO 39 
40 READ fl*(X) 
50 READ C*(X) 
60 NEXT X 
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&9 REM -N-N-^ MAIN MENU -k-x-^ 




70 CLS 

r V www 




aa PRINT "SECRET CODE PROSRflM" 




90 PRINT 




100 PRINT "TYPE ft NUMBER" 




110 PRINT "THEN PRESS (ENTER)." 




1P0 PRINT 




130 PRINT "1) ENCODE ft MESSfiBE*^ 




140 PRINT "£) DECODE ft MESSAGE" 




150 PRINT 




160 INPUT "WHICH ONE"sCH 




170 IF CH<1 OR CH>£ THEN 160 




180 ON CH GOTO £00,500 




199 REM ENCODE ROUTINE 




£00 CLS 




£10 PRINT "TYPE YOUR MESSfiGE" 




££0 PRINT "£ LINES MAX. AT ft TIME" 




£30 PRINT "OR TYPE '0' AND PRESS" 




£40 PRINT " (ENTER) FOR MENU. " 




£50 PRINT 




£60 PRINT "WHAT IS YOUR MESSAGE" 




£70 INPUT M* 




£80 IF M*="0" THEN 70 




£90 PRINT 

Wmm m9 1 1 ^ A 1 T I 




300 PRINT "NOW ENCODING..-." 




310 PRINT 




3£0 PRINT "HERE'S THE CODE:" 




330 PRINT 




340 FOR X=l TO LEN(M*) 




350 FOR M=l TO 39 




360 IF MID*(M*, X, 1)=A*(M) THEN PRINT 


C$(M) ; 


370 NEXT M 




380 NEXT X 




390 PRINT 




400 PRINT 




410 PRINT "PRESS (ENTER) TO CONTINUE. 


It 


4£0 60SUB 3000 




430 GOTO 70 




499 REM DECODE ROUTINE 




500 CLS 




510 PRINT "TYPE A CODED MESSAGE" 




5£0 PRINT "£ LINES MAX. AT A TIMP" 

9mm i 1 A «!. 1 ^ 4 mmm %mm mm I ^ Umm ImT IIII#\V III II lAll mmm 




530 PRINT "OR TYPE '0' AND i=>RESS" 




540 PRINT " (ENTER) FOR MENU. " 




550 PRINT 




560 PRINT "WHAT IS THE CODE" 




570 INPUT C* 




580 IF C$="0" THEN 70 




590 PRINT 




600 PRINT "NOW DECODING. ..." 




610 PRINT 




6£0 PRINT "HERE'S THE MESSAGES" 




630 PRINT 




640 FOR X=l TO LEN(C$) 




650 FOR M=l TO 39 




660 IF MID*(C*, X, i)=C^(M) THEN PRINT 


ft*<M) § 


670 NEXT M 




680 NEXT X 




690 PRINT 
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700 PRINT 








710 roilMT" PRPcjci ^PWTPP^ rn rnKiT " 








- 720 SOSUB 3000 








730 GOTO 70 








1000 DfiTfi* ft- F- " " " " R H r II n V p 7 


P, 0, 




T Li I 

J, H, L 


1010 DflTfl I. Q. J. S- K- W- L ft M r W M n T 




n 


n 
H 


10P0 DftTft R-KSDTRIIRUPLi T YM 


Y, X, 


z, 


R 


UH 1 H . , - , W, 1, /, 2, .5, Ji, 0, 4, 5, I 








1040 DftTft 6,4,7,5,8,6,9,8,?,? 








3000 INPUT R* 








3010 RFTIIRIM 








TRS-80 Model III and Model 4 










AND 


4 


BASIC 


9 REM *** nTMFMRTnW PfinP ARR^VQ *4f.* 

/ 1 1 rr^T^ JL/ A 1 IClM%-> i WIN \mt\JUC MrMAri Y O TTlTlr 








10 DIM A* ("59) 








'^O DIM r*('^9) 
















40 READ A* ( X ) 








50 READ C* ( X ) 








60 NEXT X 








69 REM ^-Jf^-K- MAIN MFNt 1 








70 CIS 








80 PRINT "SECRET mDF PRHRRAM" 








90 PRINT 








lOO PRINT "TYPE A NIJMRFR" 

* IIXXINI III Imm n IMWI IJU*VM>r\ 








110 PRINT "THEN PRESS (ENTER) " 

■•**ITf III Im 1 1 i 1 \ \J W \ Kb. INI Imm 1\ / m 








120 PRINT 








ir^O PRINT " 1 ) FNCnDF A MFClcjARF" 








140 PRINT "2)DFCnDF A MFRCJARF** 








ISO PRINT 








1 60 I NPUT " WH I CH ONE " S CH 

* ^ * 1 ^ 1 1 w fix u./ 1 1 i_/ 1 N ji r 1 








170 IF CH<' 1 OR CH>2 THEN 160 








ISO ON CH GOTO '^OO "=^00 








199 REM ENCODE ROUT INF 








200 CLS 








21 O PRINT "TYPE YOUR MFSSARF" 








220 PRINT "2 LINES MAX (NO POMMACJ) " 

• JL. L..XIML.W lll~IAa \iMLJ wLJIlllriW/ 








2.'^0 PRINT "OR TYPE "O^ AND PRFC?Q«« 

1 iNxiM 1 Kjv\ lire riiNJL/ i lAdLOO 








240 PRINT " (ENTER) FOR MENU " 








250 PRINT 

WV i 1 \ X 1 N i 








260 PRINT "UIHAT TC? VnilR MPQQAf5F«« 








270 INPUT M* 








280 IF M*="0" THEN 70 








290 PRINT 








/^OO PRINT "NOW ENCODING " 








31 O PRINT 

X V 1 i \ X 1 N 1 








/%20 PRINT "HFRF^S THF mnP- 








T^TiO PRINT 








340 FOR X=l TO LEN(M*) 








350 FOR M=l TO 39 








360 IF MID*(M*, X, 1)=A*<M) THEN PRINT C*(M) 


■ 




370 NEXT M 








380 NEXT X 








390 PRINT 








400 PRINT 








410 PRINT "PRESS (ENTER) TO CONTINUE"; 








420 GOSUB 3000 








430 SOTO 70 
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499 REM *** DECODE ROUTINE ♦** 

500 CLS 

510 PRINT "TYPE A CODED MESSABE, " 
520 PRINT "2 LINES MAX. (NO COMMAS)" 
530 PRINT "OR TYPE '0' AND PRESS" 
540 PRINT " (ENTER) FOR MENU. " 
550 PRINT 

560 PRINT "WHAT IS THE CODE" 

570 INPUT C* 

580 IF C*="0" THEN 70 

590 PRINT 

600 PRINT "NOW DECODING " 

610 PRINT 

620 PRINT "HERE'S THE MESSAGE:" 
630 PRINT 

640 FOR X=l TO LEN(C*) 
650 FOR M==l TO 39 

660 IF MID*(C*,X, 1)=C*(M) THEN PRINT A*(M); 
670 NEXT M 
6S0 NEXT X 
690 PRINT 
700 PRINT 

710 PRINT "PRESS (ENTER) TO CONTINUE"? 
720 60SUB 3000 
730 GOTO 70 

1000 DATA A, F, " "," " , B, H, C, U, D, Y, E, Z , F, 0, G, J , H, L 
1010 DATA I,Q, J,S,K,W,L, A,M,C,N,M,0,T,P,V,Q,P 
1020 DATA R,K,S,D,T,G,U,B,V,E,W, I,X,N,Y,X,Z,R 
1030 DATA .,.,0,9,1,7,2,3,3,0,4,2,5,1 
1040 DATA 6,4,7,5,8,6,9,8,?,? 
3000 INPUT R* 
3020 RETURN 

VIC-20 

1 REM *♦♦ SECRET CODE VIC-20 *** 

9 REM **♦ DIMENSION CODE ARRAYS ♦«» 

10 DIM fi*(39) 
20 DIM C$(3g) 

£9 REM ♦*♦ INITIALIZE CODE ARRAYS »♦* 
30 FOR X=i TO 39 
40 READ A*(X) 
50 READ C*(X) 
60 NEXT X 

69 REM **♦ MAIN MENU 

70 PRINT CHR*(i47) 

80 PRINT "SECRET CODE PROGRAM" 
90 PRINT 

100 PRINT "TYPE A NUMBER, " 

110 PRINT "THEN PRESS (RETURN)." 

i£0 PRINT 

130 PRINT "DENCODE A MESSAGE" 
140 PRINT "£) DECODE A MESSAGE" 
150 PRINT 

160 INPUT "WHICH ONE";CH 

170 IF CH<1 OR CH>£ THEN 160 

180 ON CH GOTO £00,500 

199 REM *** ENCODE ROUTINE *** 

£00 PRINT CHR*(147) 

£10 PRINT "TYPE YOUR MESSAGE" 
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220 PRINT "2 L TKiP<^ Moy— Kin rnMMnciti 




230 PRINT "TVDP v aiun DDcrccii 




240 PRINT "(RETURN) PTIR MPMii » 




250 PRINT 




2&0 PRINT "UMQT TCt vni IR MPQcnnscrii 




270 INPUT M* 




280 IF M$="e" THEN 7{?i 




290 PRINT 




300 PRINT "Nnu FNirnnTMR »» 




310 PRINT 




320 PRINT "HERE'S THE mnp-" 




330 PRINT 




340 FOR X=l TO LEN(M«) 




350 FOR M=l TO 3<3 




3&0 IF M IDA (MA y l^ssD^^M) TUCKI no T KIT r^A /m\ 




370 NEXT M 




380 NEXT X 




390 PRINT 




400 PRINT 




410 PRINT "PRESS (SHIFT) TH PHMT " 




420 GOSUB 3000 




430 GOTO 70 




499 REM DECODE ROUTINE ♦«* 




500 PRINT CHR*( 147) 




510 PRINT "TYPE fi CODED MESSQRF 




520 PRINT "2 LINES MQY— wn mMMQQ i «» 




530 PRINT "TYPE » ITI' QND DRFQQ" 




540 PRINT "(RETURN) FOR MENU " 




550 PRINT 

wvj%^ 1 l>XIN 1 




560 PRINT "WHAT IS THE mnP" 




570 INPUT C* 




580 IF C*="0" THEN 70 




590 PRINT 




600 PRINT "NOW DECDDINR " 




610 PRINT 

%«r m» 1 1 > all ft ^ 1 




620 PRINT "HERE'S THE MESSfiGE:" 




630 PRINT 




640 FOR X=l TO LEN(C*) 




650 FOR M=1 Tn "^S 




560 IF MID* (C*. X- 1 ) =C* (M) THEN DRTWT Q*^M^- 




670 NEXT M 




680 NEXT X 




690 PRINT 




700 PRINT 




710 PRINT "PRESS (SHIFT) TH PHNT " 




720 GOSUB 3000 




730 GOTO 70 




1000 DftTA fi-F, " ", " ", B, H, C, U, D, Y. E. Z. F. D. G. 


J. H. L 

W Jip 1 1 ip %mm 


1010 DflTfi I. Q. J. S. K. W. L. fl. M. Cm N. M- 0- T- P. V Q 




1020 DftTfl R, K, S, D, T« G. U-.B. V- E- W- I . X. N- Y X- Z 


R 


1030 DflTfl ■ - . . 0. 9- 1- 7- 2. 3 3 4 P 1 




1040 DflTfl 6.4.7.5-8-5-9-8 




2999 REM *** WAIT ROUTINE 




3000 WfilT 653, 1 




3010 WAIT 653, 1, 1 




3080 RETURN 
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BONUS PROGRAM #5 

GRAPHK FANTASy 

A GRAPHIC FANTASY is something that most people just dream 
of » But computers, besides being -functional, can take you 
on wonderful graphic adventures. GRAPHIC FANTASY is a 
program that lets you enter the world of computer 
generated graphics. For many hours it generates patterned 
images (on most computers in radiant colors) and geometric 
ir shapes something akin to pyramids, oriental rugs, and the 
cells of plants. 



ADAM 

1 REM *** GRAPHIC FANTASY ADAM *** 

10 GR: COLOR = 1 

20 X = 1 : y = 1 : kol = 1 

30 xi = -1 : yi = 1 

40 COLOR = kol . 

50 k = INT(RND(1 )*100) 

60 IP k = 1 THEN kol = kol+1 

70 IP kol > 15 THEN kol =1 

80 X = x+xi: y = y+yi 

90 IP X < 1 THEN X = 1: xi = -xl 
100 IP X > 19 THEN X = 19: xi = -xi 
110 IP y < THEN y = : yi = -yi 
120 IP y > 19 THEN y = 19: yi = -yi 
130 PLOT X, y , 
1 40 PLOT x+1 9 , y 
150 PLOT X, y+20 
160 PLOT x+,19, y+20 
170 GOTO 40 

Apple II and Apple He 

1 REM *** GRAPHIC FANTASY APPLE *** 

2 REM **•«• SHAPE TABLE INDEX »** 

5 HOME : HGR2 s POKE 232,2525 POKE 233,29 

10 CB = 7676s Z = 4 

20 POKE CB , 8 : POKE . CB + 1,0 

30 FOR LOC = 1 TO 8 

40 POKE CB + (2 * LOC), (10 * LOC •+• 8) 
50 POKE CB + (2 * LOC + 1) ,0 
60 NEXT LOC 

69 REM **« SET COLORS *«* 

70 KA = INT ( RND (1) * 7) + li IF KA = 4 THEN 70 
SO KB = INT ( RND (1) * 7) Is IF KB = 4 THEN 80 
90 KC = INT ( RND (1) * 7) + 1: IF KC == 4 THEN 90 
100 KD = INT ( RND (1) * 7) + Is IF KD = 4 THEN 100 
105 CB = CB + 18 

109 REM INITIALIZE SHAPE TABLES *** 

110 Z = ABS (Z - 4) 
120 BOSUB 700 

130 S == 10; ROT= Os SCALE---- 2 

139 REM ■»-»*REPiD GRAPHIC COORDINATES AND COLORS *** 

140 READ .RO,A,B 
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150 IF RO - 1 THEN 370 
160 FOR CO = A TO B STEP S 
170 KO = KA 
180 GOSUB 500 
NEXT CO 
READ CO,A,B 

FOR RO = A TO B STEP S 
220 KO = KB 
230 GOSUB 500 
NEXT RO 

IF CO = - 1 THEN 370 
READ RO,A,B 

FOR CO = A TO B STEP - S 
2S0 KO = KC 
290 GOSUB 500 
300 NEXT CO 
310 READ CO,A,B 

320 FOR RO A TO B STEP S 
330 KO KD 



190 

200 
210 



240 
250 
260 
270 



GOSUB 500 
NEXT RO 
GOTO 140 

FOR T 1 TO 1500 
NEXT T 
RESTORE 
GOTO 70 

REM -^-^f* ERASE OVER CHARACTER 
500 SH = SH •+• Is IF SH > 4 THEN SH = 1 
510 HCOLOR=-- 

DRAW SH + ( ABB (Z - 4)) AT CO.RO 
REM -^^-^ DRAW CHARACTERS ON SCREEN 
HCOLOR= KO 

DRAW SH + Z AT CO,RO 
RETURN 

REM SHAPE TABLE ROUTINE ^-^^ 

FOR ST - 1 + Z TO 4 -f Z 
FOR LOC O TO 9 

IF LOC = 9 THEN POKE CB (ST * 10 9)^0s GOTO 750 
730 D = INT ( RND (1) * 256) s IF D 
740 POKE CB (10 * ST L0C),D 
750 NEXT LOC 
760 NEXT ST 
770 RETURN 
1000 DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



340 
350 
360 
370 
380 
390 
400 
499 



520 
529 
530 
540 
550 
699 
700 
710 
720 



THEN 730 



1010 
1 020 
1030 
1040 
1050 
1 060 
1070 
1 080 



80 , 1 20 
70, lio 
60 , 1 00 



90 , 130 , 1 40 , 1 50 , 90 , 1 00 , 1 00 , 1 40 , 1 30 , 1 20 , 1 00 ^ 90 
150, 160,80, 1 10,1 10, 150, 120, 110, 1 10,80 
1 60 , 1 70 , 70 , 1 20 , 1 20 ,160,11 , 1 00 , 1 20 , 70 
1 70 , 1 80 , 60 , 1 30 , 1 30 , 1 70 , 1 00 , 90 , 1 30 , 60 
50 ,90 , 1 80 , 1 90 , 50 , 1 40 , 1 40 , 1 80 , 90 , 80 , 1 40 , 50 
40 , 80 , 1 90 , 200 , 40 , 1 50 , 1 50 , 1 90 , 80 , 70 , 1 50 , 40 
30 , 70 , 200 H 2 1 , 30 , 1 60 , 1 60 , 200 , 70 , 60 , 1 60 , 30 
20,60,210,220,20, 170, 170 , 210 , 60 , 50 , 170 , 20 
"■"1 ,~"1 ,~"1 ,~~1 *1 ,~"1 ,"**"1 ,"~1 ,~"1 ,~**1 ,"~1 ,"~1 



Atari 

1 REM GRAPHIC. FAiMTASY ATARI 

2 REM GITA CHIP REQUIRED 
10 SRAF'HICS 11 

19 REM PICK COLORS m.D RANDOM COORDINATES *#* 

20 K0=INT(RND(i)*15>+i 
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30 R0=INT(RND(1)*191) 
40 C0-=INT<RND(1)*79) 

49 REIi **# DRAW STARBURSTS 

50 COLOR KO 
60 PLOT 40,96 
70 DRAWTO COjRO 
80 X=X+1:Q=K0 

90 IF X=75 THEN 130 
120 GOTO 20 

129 REM *«•«• INITIALIZE FRAMING CC30RDINATES 

130 A=0 
140 B=79 
150 C=191 
160 D=0 

170 K0-INT<RNB(1)*8) 

179 REM *** DRAW FRAMES *** 

180 COLOR KO 
190 PLOT D,A 

200 DRAWTO B,,A ' 

210 DRAWTO B,C 

220 DRAWTO D , C 

230 DRAWTO D,A 

240 A=A+1 

250 B==B-1 

260 C=C-1 

270 D=D+1 

280 X=X !-1 

290 IF X>275 THEN X'-=1;G0T0 10 

300 IF A<0 OR A>79 THEN 130 ' 

310 GOTO 170 

Commodore 64 

1 REM **♦ GRAPHIC FflNTftSY 64 
10 Z=i 
£0 S=l . 

30 PRINT CHR*(147) 
40 POKE 53280, 
50 POKE 53281,0 
60 DUM=INT(RNb(-TI) ) 

69 REM SET COLORS *♦* 

70 Kfi=INT<RND(l)#4)+l 
80 KB=INT(RND(i)*4)+4 
90 KC=INT(RND(i)*4)+8 
100 KD=INT(RND(l)*4)-!-l£' 

109 REM «** INITIALIZE SCREEN AND CHflRfiCTER VftRIfiBLES **♦ 

110 CB=55£S6 
1£0 CH=160 
130 SB=1024 

139 REM *** REftD GRAPHIC COORDINATES AND COLORS **# 

140 READ RO, A, B 

150 IF R0=-1 THEN 370 

160 FOR CQ=A TO B STEP 3 

170 KO=KA 

180 60SUB 500 

190 NEXT CO 

200 READ Ca,A,B 

210 FDR RO=A TO B STEP S 

220 KO=KB 

230 GOSUB 500 

■ ^ 
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240 NEXT RO 

250 IF C0=-1 THEN 370 

260 READ RO,fl, B 

270 FOR CO=fl TO B STEP -S 

280 KO=KC 

290 GOSUB 500 

300 NEXT CO 

310 READ CO,fl, B 

320 FOR RO=fl TO B STEP -S 

330 KO=KD 

340 GOSUB 500 

350 NEXT RO 

360 GOTO 140 

370 FOR T=l TO 1500 

380 NEXT T 

390 S=INT<RND(1)*5)+1 
400 RESTORE 
410 1=1+1 
420 GOTO 40 

499 REM **♦ RANDOMLY PICK CHARACTER *** 

500 IF Z/3=INT(Z/3) THEN CH=81 
510 IF Z/5=INT(Z/5) THEN CH=86 
520 IF Z/7=INT(Z/7) THEN CH=9iZi 

529 REM **♦ DRAW CHARACTERS ON SCREEN *** 

530 POKE CB+CO+40*RO, KO 
540 POKE SB+CO+40*RO, CH 
550 RETURN 

1000 DATA 12, 19, £0, 20, 12, 13, 13, £0, 18, 18, 13, ii 
1010 DATA 11, 18, £1,21, 11, 14, 14, £1. 17. 17. 14, 10 
1020 DATA 10, 17, ££, ££, 10, 15, 15, 22, 16, 16, 15, 9 
1030 DATA 9, 16, £3, £3, 9, 16, 16, £3. 15, 15, IS, B 
1040 DATA a, 15, 24.24, 8, 17, 17, £4, 14, 14, 17, 7 
1050 DATA 7, 14, £5, £5, 7, 18, 18, £5, 15, 13, 18, 6 
1060 DATA 6, 13, £6, £6,6, 19, 19, £6, 1£, 1£, 19, 5 
1070 DATA 5, 1£, £7, £7,5, £0,£0, £7, 11, ll,£iZ!.4 
1080 DATA 4, 11, £8, £8, 4, 21, 21, £8, 10, 10, £1, 3 
1090 DATA 3, 10, £9, £9, 3,££,££, £9, 9, 9,££,£ 
1100 DATA £, 9, 30, 30, £, £3, £3, 30, 8, 8, 23, 1 
1110 DATA 1,8,31,31, 1, £4, £4, 31, 7, 7, £4.0 
11£0 DATA 0,7,31,-1,-1,-1,-1,-1,-1 
1130 DATA -1,-1,-1,-1,-1,-1,-1 



IBM PC 

10 REM X** GRAPHIC FAl-iTASv' IBi'l-PC 
20 KEY OFF 

30 F?EM K-Jt* INl I TALIZE VARIABLES *** 

40 SCI--:;EEiM O , O , 

50 WIOfH 80 

6(> Cl.S 

70 Z--15 8-- 4 

SO R0--3 

90 RANDOMIZE 564 

100 CH-219 

110 REM Mf-ili'! LQGF"' 

120 READ A,.B 

130 IF B-- :i. THEN 380 

140 FOR CO=A '10 B STEP 3 
150 60SIIB 1000 
160 HEX f CO 
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1 70 


CO=^B 






:i80 


READ C,D 






190 


IF THEH 380 . 






200 


FOR RC):^:C TO D STEP S 






210 


GOSUB 1000 






220 


ne:xt RO 






230 


F<0-D 






240 


READ E.F 






250 


IF F::^:-l THEN 380 






260 


FOR a:}^^E. TO F STEP -8 






270 


GGSUB 1000 






280 


NEX r CO 






290 


CG^4" 






3;oo 


READ BnH 






310 


IF l-i:::::-"! THEN 380 






320 


FOR RO::-G 10 l-l S I EP -S 






330 


GOSUe 1000 






34C' 


HE XI RO 






35^) 


RQ^H 






360 


GOTO 100 






370 


REN ^-^.-^ DELAY -BEiT STEPS -^-^--k- 






380 


FOR T^l TO :I500 






390 


NEXT T 






400 


S^^<1:NT (RND(i)-J^5) -i"l . . 






4 1 


RESTORE 






420 








43l> 


GOTO 80 






440 


REN RANDONL Y P:i:CI< ChlARACTERS 




1 OOC 


* IF Z./2===^^INr ^■7/2) THEN CH=^^4 






1 1 C 


IF ZV ••i=^lNI ':Z/3) THEN CH=-^2 






102C 


• IF Z / 4-^ 1 NT (7/ A) THEli CH==:220 








1 l/'r\:^LHT ( I/'5) THEN CH^^^^S 






104':: 


» IF 7 7 7^=^:^ INT (Z/7) THEN CH^'^^O 






l(.>5^.. 


» IF Z79:-=^INI <Z/9) IHEN CH=:^239 






1 06'.: 


. REM iirih^ DRAN CHARACTERS 






1 07 c 


LOCATE RO.CO.O 






lose 


» PRINI CHR:$7(CH) ; 






i09C 


^ RETURIM 






200"::: 


' ^ r A 2 , 78 . 3 2:::': 78 , 3 , 23 , 4 , 3 .77,4, 22 






20 IC 


' [:?f i T H 7 7 , 4 , 2x:: , 5 , 4 , 7 6 , 5 , 2 1 , 7 6 . 5 , 2 1 , 6 




75 


202*:: 


J Dh T a 6 .70,75,6, 20 , 7 , 6 74 , 7 , 1 9 , 7 4 , 7 


,19 


.,8 


20 :v:. 


y DA T A / , 7 ::S ,8,18,73,8, 1 8,9, 8 ,72, 9 1 7 


,72 


, 


'=:::04^.. 


•DA r v -; :l. 7 , 1 , 9 , 7 ;i. . 1 , :l. ,71, 1 ,16.. 1 :l. , 


10, 


70,11., 15 


• 205C 


^ DA ! A 7 . J. 1 , 1 5 . 1 2 , 1 1 . 69 , :i. 2.14 , 69 , 1 :.•! 


.14 


5 13, 12,68 


206'. 


) D( \ 1 f) 1 . 1 






TI-99/4A 






1. RE?^[ (BRAPHIC FANTASY TI99/4H ^^-^ 






10 CAI...L SCREE:h4(2) 






20 2 


••••1 






30 B-2 






39 REM -^-^-^^ def:!:ne le charactef^s •^••>j->^ 






40 " ppp/pppppppppprrpp n 






50 CALL CMAR(128, A:i:i-) 






" 60 CALL.. CI-IAR ( 136, A:1i' ; 






70 CALL CLEAR 






00R0-i2 






90 CH^^:^^:l.2e 






100 


RANDOMIZE 
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109 REM *** SELECT LE COLOURS *** 

no CALL C0L0R<2, INT(RND*<b)+.3, INT<RND*6)+3> 

120 CALL C0L0R(5, INT(RND*8)+4, INT(RND*8)+1) 

130 CALL C0LOR(6,INT(RND*4)+8,INT(RiMD*15)+l) 

140 CALL COLOR (S, INT (RND*4) +12, INT (RND»5)+1) 

1 50 CALL COLOR ( 1 3 , 1 NT ( RND* 1 4 > ••i-3 , 1 ) 

160 CALL COLOR (14, INT (RND* 10) +3,1) 

169 REM *** READ GRAPHIC COORDINATES *** 

170 READ A,B 

180 IF A=-l THEN 460 

190 FOR CO=A TO B STEP S 

200 GOSUB 500 

210 NEXT CO 

220 C0=C0-1 

230 READ A,B 

240 IF A=-l THEN 460 

250 FOR RO=A TO B STEP S 

260 GOSUB 500 

270 NEXT RO 

280 RO=Ra--l 

290 READ A,B 

300 IF A=-l THEN 460 

310 FOR CO=A TO B STEP -S 

320 GOSUB 500 

330 NEXT CO 

340 C0=C0+1 

350 READ A,B 

360 IF A==-l THEN 460 

370 FOR R0=A TO B STEP S 

380 GOSUB 500 
390 NEXT RO 
400 R0^^4"^0+i 

4 1 CALL HCHAR (12,15, CH ) 
420 CALL HCHAR (11,16, CH ) 
430 LL HCHAR (12,17, Chi ) 
440 GOTO 1.10 

459 REM *** SET DRAWING STEPS 

460 S«=INT<RND»5)+2 
470 RESTORE 

480 Z=Z+1 
490 GOTO SO 

499 REM CHOOSE LE CHARACTERS 

500 IF Z/2==INT (Z/2) THEN 510 ELSE 520 
510 CH=:=136 

520 IF Z/3:-=INT (Z/3) THEN 530 ELSE 540 
530 CH=42 

540 IF Z/5=INT (Z/5) THEN 550 ELSE 560 
550 CH-^=64 

560 IF Z/6=INT (Z/6) THEN 570 ELSE 580 
570 CH=--79 

580 IF Z/7==INT (Z/7) THEN 590 ELSE 600 
590 CH--94 

600 IF Z/S=---INT (Z/8) THEN 610 ELSE 620 
610 CH==12S 

619 REM DEFINE BOUNDER I ES 

620 IF R0>24 THEN 630 ELSE 640 
630 R0^==24 

640 IF Rn<i THEN 700 

650 IF C0<4 THEN 660 ELSE 670 
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660 CQ=4 

670 IF C0>28 THEN 680 ELSE 690 
680 C0=28 

689 REM *** DRAW CHARACTERS ON SCREEN *■»* 

690 CALL HCHAR(RO,Ca,CH) 
700 RETURN 

710 DATA 16, 17, 12, 13 , 1 7 , 15 , 13 , 1 1 , 15, IS, 11 , 14 , 18 ,• 14 , 14 , 10 

720 DATA 14 , 19 , 10 , 15 , 19 , 13 , 15 , 9 , 13 , 20 , 9 , 16 , 20 , 12 , 16 , 8 

730 DATA 12,21,8,17,21,11,17,7,11,22,7,18,22,10 

740 DATA 18,6, 10,23,6, 19,23,9, 19,5,9,24,5,20,24,8 

750 DATA 20,4,8,25,4,21,25,7,21,3,7,26,3,22 

760 DATA 26 , 6 , 22 ,2,6, 27 , 2 , 23 , 27,5, 23 ,1,5, 28 ,1,24 

770 DATA 28 , 4 , - 1 , - 1 , 1 , •- 1 

Timex 1000 and 1500 

1 REM *** GRAPHIC FANTASY TIMEX *»* 
10 CLS 
20 RAND 

29 REM *** INITIALIZE VARIABLES »*» 

30 LET S=INT (RND*5)+1 
40 LET A=0 

50 LET B=31 
60 LET C=0 
70 LET D=21 

80 LET CH=INT (RND*9)+2 

99 REM »** MAIN LOOP *** 
100 FOR X=A TO B STEP S 
110 PRINT AT C,X;CHR* (CH) 
120 NEXT X 

130 FOR X=C TO D STEP S 
140 PRINT AT X,B;CHR* (CH) 
150 NEXT X 

160 FOR X=B TO A STEP -S 
170 PRINT AT D,X;CHR* (CH) 
180 NEXT X 

190 FOR X=D TO C STEP -S 
200 PRINT AT X,A;CHR* (CH) 
210 NEXT X 

219 REM *** REDEFINE VARIABLES *« 

220 LET A=A+1 
230 LET B=B-1 
240 LET C=C+1 
250 LET D=D-1 

260 IF 021 THEN GOTO 20 
270 GOTO 100 

TRS-80 Color Computer 

1 REM *♦* GRAPHIC FflNTflSY TRS-80 COLOR *** 
10 S=i 
£0 Z=l 
30 CLS(0) 
40 E=£31 

49 REM *♦* RfiMDOMLY PICK COLOR *** 

50 Kfl=RND(a) 
60 KB=RND<£)+£ 
70 KC=RND(a) 
80 KD=RND(£)+6 
90 CH=i5 

99 REM #*» MfilN LOOP *** 
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100 READ B 

110 IF B=:-l THEN 320 
120 FOR CO=E TO B STEP S 
130 KO=KA 
1A0 GOSUB 500 
150 NEXT CO 
160 READ C 

170 FOR CO=B TO C STEP S*32 
180 KO=KB 
190 GOSUB 500 
200 NEXT CO 
£10 READ D 

220 FOR CO=C TO D STEP-S 
230 KO=KC 
240 GOSUB 500 
250 NEXT CO 
260 READ E 

270 FOR CO=D TO E STEP-S*32 

280 KO=KD 

290 GOSUB 500 

300 NEXT CO 

310 GOTO 100 

320 FOR T=l TO 1500 

330 NEXT T 

340 S=RND(5) 

350 RESTORE 

360 Z=Z+1 

370 GOTO 40 

499 REM *** RANDOMLY PICK CHARACTER *♦* 

500 IF Z/3=INT(Z/3) THEN CH=7 
510 IF Z/2=INT(Z/2) THEN CH=10 
520 IF Z/5=INT(Z/5) THEN CH=9 
530 IF Z/7=INT(Z/7) THEN CH=4 

539 REM *** DRAW CHARACTERS *** 

540 SC=12a+16*<K0-l)+CH 
550 PRINTi?CO, CHR$<SC) ; 
560 RETURN 

1000 DATA 248, 280, 262, 198, 217, 313, 293, 165, 186 
1010 DATA 346, 324, 132, 155, 379, 355, 99, 124, 412 
1020 DATA 386,66,93,445,417,33,62,478 
1030 DATA 448,32,-1,-1,-1 

TRS-80 Model III and Model 4 

1 REM *** GRAPHIC MODELS 3 AND 4 CASS. OR MODEL 3 DISK BASIC *** 

9 REM *** INITIALIZE VARIABLES *#* 

10 S=2 

20 Z=i: PRINT CHR*(21) 
30 CLS 
40 E=0 
50 CH=158 

59 REM *** MAIN LOOP #*# 

60 READ B 

70 FOR CO=E TO B STEP S 
80 BOSUB 500 
90 NEXT CO 
100 READ C 

110 IF C=-l THEN 240 

120 FOR CO=B TO C STEP S*64 

130 GOSUB 500 
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140 NEXT CO 
150 READ D 

160 FOR CO=C TO D STEP-S 
170 GOSUB 500 
180 NEXT CO 
190 READ E 

200 FOR CO=D TO E STEP-S*64 

210 GOSUB 500 

220 NEXT CO 

230 GOTO 60 

240 FOR T=l TO 1500 

250 NEXT T 

260 S=RND(7) 

270 RESTORE 

280 Z=Z+1 

290 GOTO 40 

499 REM **» RANDOMLY CHOOSE CHARACTER *** 

500 IF Z/2=INT(Z/2> THEN CH=183 
510 IF Z/3=INT(Z/3) THEN CH=189 
520 IF Z/4=INT(Z/4) THEN CH=129 
530 IF Z/5=INT<Z/5) THEN CH»157 
540 IF Z/6=INT(Z/6) THEN CH=170 

549 REM «** DRAW *** 

550 PR I NTHCO , CHR* ( CH ) ; 
560 RETURN 

1000 DATA 63,959,896,64,126,894,833,129,189 
1010 DATA 829,770,194,252,764,707,259,315,699 
1020 DATA 644,324,378,634,581,389,441,569 
1070 DATA 518,454,504,-1,-1,-1 

VIC-20 

1 REM *♦* SRflPHIC FflNTftSY VIC-20 **♦ 
10 Z=l 
£0 S=2 

30 PRINT CHR* (147) 

40 POKE 36879,8 

60 DUM=INT<RND(-TI) ) 

69 REM ♦** SET COLORS ♦** 

70 Kfi=INT(RND( !)*£)+! 
30 KB=INT(RND(i )♦£)+£ 
90 KC=INT<RND(l)*£>+4 
100 KD=INT(RND(l)*£)+6 

109 REM *♦* INITIfiLIZE SCREEN FIND CHflRflCTER VflRIflBLES 

110 CB=38400 
1£0 CH=160 
130 SB=76a0 

140 REfiD RO, fi,B 

150 IF R0=-1 THEN 370 

160 FOR CO=fi TO B STEP S 

170 KO=Kfl 

180 GOSUB 500 

190 NEXT CO 

£00 REfiD CO, fl,B 

£10 FOR RO=fl TO B STEP S 

££0 KQ=KB 

£30 SDSUB 500 

£40 NEXT RQ 

£50 IF C0=-1 THEN 370 

£60 READ RO, fl. B 
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270 FOR CO=fl TO B STEP -S 

£80 KO=KC 

£90 GOSUB 500 

300 NEXT CO 

310 READ CO,fi,B 

3£0 FOR RO=fl TO B STEP -S 

330 KO=KD 

340 GOSUB 500 

350 NEXT RO 

360 GOTO 140 

370 FOR T=l TO 1500 

380 NEXT T 

390 S=INT(RND<1)*5)+1 
400 RESTORE 
410 Z=Z+1 
4£0 GOTO 40 

499 REM ♦** RANDOMLY PICK CHflRflCTER *♦* 

500 IF Z/3=INT(Z/3) THEN CH=81 
510 IF Z/5=INT(Z/5) THEN CH=86 
5£0 IF Z/7=INT(Z/7) THEN CH=90 
5£9 REM DRAW CHflRflCTERS *** 
530 POKE CB-t-CO+££*RO, KO 

540 POKE SB+CO+££*RO, CH 
550 RETURN 

1000 DftTft 11, 11, 1£, 1£, 11, 1£, 12, 12, 10, 10, 12, 10, 10, 10, 13 

1010 DATA 13,10,13,13,13,9,9,13,9,9,9,14,14,9,14 

1020 DATA 14,14,8,8,14,8,8,8,15,15,8,15,15,15,7 

1030 DATA 7, 15, 7, 7, 7, 16, 16, 7, 16, 16, 16, 6, 6, 16, 6 

1040 DATA 6,6,17,17,5,17,17,17,5,5,17,5,5,5,18 

1050 DATA 18,5,18,18,18,4,4,18,4,4,4,19,19,4,19 

1060 DATA 19, 19,3,3,19,3,3,3,20,20,3,20,20,20,2 

1070 DATA £,£0,2,2,2,21, 21, 2,21, 21, £1, 1, 1,21, 1 

1080 DATA 1,1,21,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

1090 DATA 3, 10,29,29, 3, ££,££, 29,9,9,22, 2 

1100 DATA 2,9,30,30,2,23,23,30,8,8,23,1 

1110 DATA 1,8,31,31,1,24,24,31,7,7,24,0 

1120 DATA 0,7,31,-1,-1,-1,^1,-1,-1 

1130 DATA -1,-1,-1,-1,-1,-1,-1 

READY. 
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BONUS PROGRAM #6 

WATER BALLOONS 

In the summsrs of my early youth, we used to have water 
balloon -fights to keep cool » To tae cool now, I use my 
computer to play a little game called WATER BALLOONS, The 
object of WATER BALLOONS is to stand on the balcony^ of a 
tall building, blind-folded (i-f that sounds a bit scary, 
read on),. and drop water balloons into a hoop on the 
ground,, Your -friend, who's surely nuts, is down below, 
shouting directions to you. "TOO FAR NORTH!" he says, as 
you hit the policeman on the head. 

To set the directions a water balloon will travel, you 
select a number between one and 10 for North and South, 
and do the same -for West and East. I-f you pick a 1.0 for 
North/South and your friend says, "TOO FAR SOUTH!", then 
you should pick a lower number for North/South on the next 
time around. 

After sel£-3cting the number you want, be sure to press 
the RETURN or ENTER key, to plug the number into the 
computer. When you finally drop a balloon into the hoop, 
the computer will tell you how many tries it took. 



WATER BALLOONS' ADAM *** 



ADAM 

1 REM *** 
10 b = 10 
20 HOICE 

30 PRINT TAB(8); "WATER BALLOONS!" 
40 PRINT 

50 PRINT TAB(4); "Press any key to begin." 
60 GET n$ 
70 HOI^ffi 

80 PRINT "You are on the 7th floor" 
85 PRINT "balcony of a building," 
90 PRINT "blindfolded. You are trying" 
100 PRINT "to drop water balloons into" 
105 PRINT "the center of a hoop on the" 
110 PRINT "ground below. To do so," 
115 PRINT "you must set your north/south" 
120 PRINT "and west/east coordinates" 
PRINT "according to your friend's" 
PRINT "help on the ground." 
REM *** pick coordinates *** 
la = INT(RND(1 )*10)+1 
lo = INT(RND(1 )*10)+1 
PRINT 



125 
130 
149 
150 
160 
170 
180 
190 
200 
210 
220 
230 
235 
240 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"1=extreiiie south, 10=extreme north." 
"1=extreme west, 10=extreme east." 



"You nt)w have "; b; " water balloons, 

"What's your guess" 

"(between 1 and 10) " 

"for the north/south coordinates" 
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l-iM Jr U 1 n S 




C.J\J 


XJ; 11 o \ 1 vjn 11 o / 1 U ±JLlJlii\ d.j\j 




260 


PRTINTT "What:' Trmir xmpQQ -for T»Tf:acs + /«aQ c!+" 




265 


INPUT ew 




270 


IP ew < 1 OR ew > 10 THEN PRINT "It must 


De Dexween i and 10! : 


GOTO 260 


280 


IP ns = la AND ew = lo THEN 500 




290 


PRINT 




299 


REM scroll screen *** 




300 


FOR X = 1 TO 24 




310 


PRINT 




320 


NEXT X 




330 


PRINT "Your friend below says:" 




340 


PRINT 




349 


REM *** compare coordinates 




350 


IP ns > la THEN PRINT "Too far north!" 




360 


IP ns < la THEN PRINT "Too far south!" 




370 


IP ns = la THEN PRINT "North, south O.K. 


! " 


380 


IP ew > lo THEN PRINT "Too far east!" 




390 


IP ew < lo THEN PRINT "Too far west!" 




400 


IP ew = lo THEN PRINT "East, west O.K.!" 




410 


h = b-1 




420 


IP h < 1 THEN 800 




429 


f^j;4 randomly pick two other ways to 


lose 


430 


X = INT(RND(1 )*30)+1 




440 


IP X = 7 THEN 600 




450 


IP X = 13 THEN 700 




460 


PRINT 




470 


GOTO 190 




499 


REM *** ¥IN! *** 




500 


HOI^E 




510- 


PRINT "You hit in "; 10-b; " tries!" 




520 


PRINT 




530 


PRINT "Press any key to play again." 




540 


GET n$ 




550 


GOTO 150 




599 


REM hit Mom or Policeman *** 




600 


PRINT 




610 


PRINT "You plastered your Mom as she" 




620 


PRINT "walked out to see what was" 




630 


PRINT "going on." 




640 


PRINT "YOU LOSE!" 




650 


END 




700 


HOME 




710 


PRINT "You hit the Policeman on the" 




720 


PRINT "head. He confiscates your hoop" 




730 


PRINT "and you lose the game!" 




740 


END 




799 


REM LOSE 










810 


PRINT "You're out of water balloons!" 




820 


PRINT "YOU LOSE. The coordinates were:" 




830 


PRINT " north/ south="; la 




840 


PRINT "east/west="; lo 




850 


END 
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Apple ll and Apple He 

1 REH *** WATER BALLOONS AF'PLE 
10 B == 10 
20 HOME 

30 PRINT TAB( 12) "WATER BALLOONS!" 
40 PRINT 

50 PRINT TAB( 8) "PRESS ANY KEY TO BEBIN. " 
60 SET m 
70 HOME 

SO PRINT "YOU ARE ON THE 7TH F-LOOR BALCONY OF A" 
90 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYIN6" 
100 PRINT "TO DROP WATER BALLOONS INTO THE CENTER" 
110 PRINT "OF A HOOP ON THE GROUND BELOW,," 
120 PRINT "TO DO SO, YOU MUST SET YOUR NORTH/SOUTH" 
130 PRINT "AND WEST/EAST COORDINATES ACCORDING" 
140 PRINT "TO YOUR FRIEND'S HELP ON THE GROUND" 

149 REM *** PICK COORDINATES *** 

150 LA = INT ( RND (1) * 10) V 1 
160 LO INT ( RND <1) * 10) h- 1 
170 PRINT 

180 PRINT 

190 PRINT "1=EXTF-<EME SOUTH, 10=EXTREME NORTH.," 
200 PRINT "1=EXTREME WEST, 10---=EXTREME EAST" 
210 PRINT 

220 PRINT "YOU NOW HAVE "B" WATER BALLOONS.," 
230 PRINT "WHAT'S YOUR GUESS (BETWEEN 1 AND 10)" 
240 INPUT "FOR THE NORTH/SOUTH COORDINATES!; " r. NS 
250 IF NS < 1 OR NS > 10 THEN 230 

260 INPUT "WHAT'S YOUR GUESS FOR WEST /EAST i; " 5 EW 

270 IF EW < 1 OR EW > 10 THEN PRINT "IT MUST BE BETWEEN 1 AN 10 i 
GOTO 260 

280 IF NS = LA AND EW = LO THEN 500 
290 PRINT 

299 REM SCROLL SCREEN 

300 FOR X = 1 TO 24 
310 PRINT 

320 NEXT X 

330 PRINT "YOUR FRIEND BELOW SAYSs " 
340 PRINT 

349 REM COMPARE COORDINATES 

350 IF LA NS THEN PRINT "TOO FAR NORTH!" . 
360 IF LA > NS THEN PRINT "TOO FAR SOUTH!" 
370 IF LA = NS THEN PRINT "NORTH, SOUTH O.K..!" 
380 IF EW > LO THEN PRINT "TOO FAR EAST!" 

390 IF EW < LO THEN PRINT "TOO FAR WEST ! " 
400 IF EW = LO THEN PRINT "EAST, WEST O.K.!" 
410 B = B - 1 
420 IF B < 1 THEN 800 

429 REM RANDOMLY PICK TWO OTHER WAYS TO LOSE *** • 

430 X INT ( RND (1) * 30) + 1 
440 IF. X = 7 THEN 600 

450 IF X 13 THEN 700 
460 PRINT 

470 GOTO 190 ■ 

499 REM *** WIN! *** 

500 HOME 

510 'PRINT "YOU HIT IN "10 B" TRIES!" 
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520 


PRINT 




530 


PRINT "PRESS ANY KEY TO PLAY AGAINu " 




540 


GET m 




550 


RUN 




599 


REM HIT MOM OR POLICEMAN 




600 


PRINT 




610 


PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 




620 


PRINT "OUT TO SEE WHAT WAS GOING ON!" 




630 


PRINT "YOU LOSE! " 




640 


END 




700 


HOME 




710 


PRINT "YOU HIT THE POLICEMAN ON THE HEADn " 




720 


PRINT "HE CONPISCATES YOUR HOOP AND YOU" 




730 


PRINT "LOSE THE GAME!" 




740 


END 




799 


REM ^-^^ LOSE 




800 


PRINT 




810 


PRINT "YOU'RE OUT OF WATEiTc BALLOONS!" 




820 


PRINT "YOU LOSEu THE COORDINATES WEREs " 




Q f\ 
Cj 


PPTMT " KinPTM /onilTW-- " 1 A 
1 r\ i iM 1 iML/n. 1 n/ -.jutj i ri— L.H 




840 


PRINT "EAST/WEST-:"LO 




850 


END 




Atari 






1 REM ^-^-^ WATER BALLOONS ATARI -^.-n-^h 




10 TDIM R*(1) sB-^^lO 




20 PRINT CHR:^(125) 




30 POSITION 12 hO 




40 PRINT "WATER BALLOONS!" 




50 POSITION 3 „ 3s PRINT "PF<ESS (F^ETRUN) TO START"? 




60 80SUB 1 000 




70 F 


RINT CHR:?-(125) 




80 PRINT "VOU ARE ON THE 7TH PLOOR BALCONY OP A" 




90 PRINT "BUILDINGh BLINDPOLDED. VOU ARE TRYING" 




1 00 


PRIHT "TO DROP WATER BALLOONS INTO A HOOP," 




110 


PRINT "ON THE GROUND BELOW- TO DO SO," 




120 


PRINT "vqU MUST SET YOUR NORTH/SOUTH" 




130 


PRINT "AND EAST/WEST COORDINATES ACCORDING" 




140 


PRINT "TO YOUR FRIEND'S HELP ON THE GROUND-" 




149 


REM y^^-fi- PICK COORDINATES ^-^-^ 




1 50 


LA^aNT <RND (1 ) J^IO) 4-1 




160 


LO==INT (RND (. 1 ) -i^lO) -1-1 




1 70 


PRINT 




180 


PRINT 




190 


PRINT "l^^^EXTREME SOUTH - lO^^EXTREME NORTH" 




200 


PRINT "l^^EXTREME WEST - lO^^^EXTREME EAST" 




210 


PRINT 




22U 


PRINT "YOU HAVE "5B5" WATER BALLOONS« " 




230 


PRINT "WHAT S YOUR GUESS (BETWEEN 1 AND 10)" 




240 


PRINT "FOR THE NORTH/ SOUTH COORDINATES" s INPUT N8 




250 


IF NS<1 OR NS>10 THEN 230 




260 


PRINT "WHAT'S YOUR GUESS FOR WEST/EAST" 2 INPUT EW 




270 


IF EW<1 OR EW>10 THEN PRINT "IT MUST BE WITHIN 1 AND 1 


i " s GOT 260 


280 


IF N3=:=LA mo Ebi::^LQ THEN 500 




290 


PRINT 




299 


REM -i*-*-)^ SCF-alLL SCREEN •f^*-^- 




300 


FOR X^l TO 24 




310 


PRINT 




320 


NEXT X 
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330 PRINT "YOUR FRIEND BELOW SAYSs " 
340 PRINT 

349 REM COMPARE COORDINATES 

350 IF NS>LA THEN PRINT "TOO FAR NORTH!" 
360 IF- NS<LA THEN PRINT "TOO FAR SOUTH!" 
370 IF NS==LA THEN PRINT "NORTH /SOUTH 0«K«!" 
380 IF EW>L0 THEN PRINT "TOO FAR EAST!" 
390 IF EW<LO Th-itlN PRINT "TOO FAR WEST!" 
400 IF EW^^^LO U-\EM PRINT "EAST/WEST 0-K.. !" 
410 B:^=B-1 

420 IF B<i n\m 800 

429 REM -^-^^ RANDOMLY PICK TWO OTHER WAYS TO LOSE 

430 X I NT ( RND (1 ) -H- 30 ) f 1 
440 IF THEN 600 
450 IF X^J.3 THEN 700 
460 PRINT 

470 GOTO 190 

499 REM -J^-J^-J^- WIN! Je-x--^- 

500 PRINT CHRt-(125) 

510 PRINT '^YOU HIT IT IN ";9-B;" TURN (8)!" 
520 PRINT 

530 PRINT "PRESS (RETURN) TO PLAY AGAIN.." 
540 GGSUB 1000 
550 RUN 

599 REM ^-^-^ HIT MOM OR POLICEMAN 

600 PRINT 

610 PRINT ^^YOU PLASTERED YOUR MOM AS SHE WALKED" 
620 PRINT "OUT TO SEE WHrfT WAS .GOING ON!" 
630 PRINT "YOU LOSE! " 
640 END 

700 PRINT CHR:$^(125) 

710 PRINT "YOU HIT THE POLICEMAN ON THE HEADu " 
720 PRINT "HE CONFISCATES YOUR HOOP" 
730 PRINT "AMD YOU LOSE THE GAME!" 
740 END 

799 F^EM L.OSE J^-J^-J^- 

800 PRINT 

810 PRINT "YOU RE OUT OF WATER BALLOONS!" 

820 PRINT "YOU LOSE. THE COORDINATES WEREs " 

830 PR I N I " NOR TH /" SOU TT T^^^- " ; LA 

840 PRINT "EAS ! / WEST^^^ " S LO 

850 END 

1000 INPUf R$ 

1020 RETURN 

Commodore 64 

i REM WATER BfiLLOONS 64 

10 6=10 

£0 PRINT CHR*(147> 

30 PRINT TAB (1£) "WATER BfiLLOONS ! " 
40 PRINT 

50 PRINT TAB (8) "PRESS (SHIFT) TO BEGIN. " 
60 GOSUB 1000 

69 REM *** INTRODUCTION 

70 PRINT CHR*(147) 

80 PRINT "YOU ARE ON THE 7TH FLOOR BALCONY OF A" 
90 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYING" 
100 PRINT "TO DROP WATER BALLOONS INTO A HOOP" 
110 PRINT "ON THE GROUND BELOW." 
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1£0 PRINT "TO DO SO, YOU MUST SET NORTH/SOUTH" 
130 PRINT "fiND WEST/EftST COORDINATES flCCORDING" 
140 PRINT "TO YOUR FRIEND»S HELP ON THE GROUND. " 

149 REM **♦ PICK COORDINATES *** 

150 Lfl=INT<RND(l)*10)+l 
160 LO=INT(RND(1)*10)+1 
170 PRINT 

180 PRINT 

190 PRINT "1=EXTREME SOUTH - 10=EXTREME NORTH" 
£00 PRINT "1=EXTREME WEST - 10=EXTREME EAST" 
£10 PRINT 

£19 REM *** MAIN LOOP «♦* 

££0 PRINT "YOU NOW HAVE"B" WATER BALLOONS. " 
£30 PRINT "WHAT'S YOUR GUESS (BETWEEN 1 AND 10)" 
£40 INPUT "FOR THE NORTH/SOUTH COORDINATE" ;NS 
£50 IF NS<1 OR NS> 10 THEN £30 

£60 INPUT "WHAT'S YOUR GUESS FOR WEST/EAST" ;EW 

£70 IF EW<1 OR EW>10 THEN PRINT "IT MUST BE WITHIN 1 AND 10!":GOTO £60 
£80 IF NS=LA AND EW=LO THEN 500 
£90 PRINT 

£99 REM *** SCROLL SCREEN ♦** 
30(3 FOR X=l TO £4 
310 PRINT 
3£0 NEXT X 

330 PRINT "YOUR FRIEND BELOW SAYS:" 
340 PRINT 

349 REM *** COMPARE COORDINATES «♦* 

350 IF NS>LA THEN PRINT "TOO FAR NORTH!" 
360 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
370 IF NS=LA THEN PRINT "NORTH, SOUTH O.K. i" 
380 IF EW>LO THEN PRINT "TOO FAR EAST!" 

390 IF EW<LO THEN PRINT "TOO FAR WEST i " 
400 IF EW=LO THEN PRINT "EAST, WEST O.K. !" 
410 B=B-1 

4£0 IF B<1 THEN 800 

4£9 REM **♦ RANDOMLY PICK TWO OTHER WAYS TO LOSE ♦** 

430 X=INT(RND(1)*30>+1 

440 IF X =7 THEN 600 

450 IF X=13 THEN 700 

460 PRINT 

470 GOTO 190 

499 REM «** WIN! **» 

500 PRINT CHR*(147) 

518 PRINT "YOU HIT IT IN" 10-B"TRIES i " 
5£0 PRINT 

530 PRINT "PRESS (SHIFT) TO PLAY AGAIN." 
540 GOSUB 1000 
550 RUN 

599 REM HIT MOM OR POLICEMAN *** 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 
6£0 PRINT "OUT TO SEE WHAT WAS GOING ON!" 
630 PRINT "YOU LOSE!" 
640 END 

700 PRINT CHR*(147) 

710 PRINT "YOU HIT THE POLICEMAN ON THE HEAD." 
7£0 PRINT "HE CONFISCATES YOUR HOOP" 
730 PRINT "AND YOU LOSE THE GAME!" 
740 END 
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799 REM *** LOSE *** 

800 PRINT 

810 PRINT "YOU'RE OUT OF WATER BALLOONS!" 
820 PRINT. "YOU LOSE. THE COORDINATES WERE:" 
830 PRINT "NORTH/SOUTH="LA 
840 PRINT "EAST/WEST="LO 
850 END 

1000 WAIT 653, 1 
1010 WAIT 853, 1,1 
1020 RETURN 



30 
40 



IBM PC 

I. REM 
10 B=10 
20 CLS 
PRINT 
PRINT 
50 PRINT 
60 OOSUB 
70 CLS 
80 PRINT 
90 PRINT 
100 PRINT 
PRINT 
PR I N T 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



WATER BALi.OdNS IBM-PC **« 



'Wi'VTER BAL(...OONS! " 



F'FlEBS 
1 00 



(ENTER) TO BEGIN, 



1 1 
120 
130 
140 
150 
1 60 
170 
180 
190 



200 
210 
220 



199 REM 

LA^INT 

PRINT 
230 PRINT 
240 GQBUB 
250 CLS 
260 PRINT 
2?0 PRINT 
280 PRINT 
290 PRINT 
300 PRINT 
31 o PRINT 
320 PR I ITT 
330 F'RlNf 
340 PRINT 
350 PRI.IMT 
360 INPUT 
3?0 IP NS<. 
380 PRINT 
39(;' irJPLJT 
400 IF EW< 
410 IF NS=LA 
420 PRINT 
430 FOR y-l 10 
440 PRINT 

450' ne;'xt X 



YOU mE DN THE 7TH" 
FLOOR BALCONY OF A" 
" BU 1 1 .. D I NG H BL I NDFOL DED „ " 
"t'OU ARE TRYING TO" 
"DROP I'JATER BALLOONS" 
"INTO TTIE CENTER OF" 
"A HOOP ON THE GROUND BELOW » " 
"TO DO SO, VOU MUST SET" 
"YOUR ITOR I H/SOUTH AND" 
" WEST /EAST COORD I NATES " 
"WITH YOUR FRIEND'S" 
"HET.P ON THE GROUND. " 
* RANDOMLY pick: COORDINATES *** 
<RND 1 ) iilO) H- 1 
(RND < 1 .) *10.) f 1 



"PRESS (ENIER) 
1 100 



'0 FLAv 



"1^^E:k IRENE SOUTH-" 

" 10=--E:< I RENE NOR I H " 

"l=EXrREME WEST-" 
" 10«E.< IRENE EAS r " 

"YOU NOW H^iVE"B" WATER BALLOONS. " 
"WHAT IS Y OUR GUESS" 
" (BETWEEN 1 AND 10) " 
"POR THE NORTH/SOUTH" 
"COORDINATE" 5 NS 
i OR i-|S:>10 THEN 340 
"WFIAT IS YOUR GUESS" 
"FOR WESr AND EAST";EW 
1 OR EW..--10 THEN 380 
AT.iD EW~LO THEN 700 

24 
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460 

470 

479 

480 

490 

500 

510 

520 

530 

540 

550 

559 

560 

570 

580 

590 

600 

699 

700 

710 

720 

730 

"740 

750 

799 

300 

810 

820 

830 

900 

910 

920 

930 

940 

999 

1000 

1010 

1020 

1030 

1040 

1 050 

1060 

1 099 

1 100 

1120 



TWO OTHER WAYS TO LOSE ^^^^^ 



PRINT "YOUR FRIEND BELOt^J SAYS" 
PRINT 

REN COMPARE COORDINATES 

IF NS>LA THEN PRINT "TOO FAR NORTH!" 
IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
IF NS==:LA THEN PRINT "NORTH/SOUTH O.K. 
IF El^DLu THEN PRINT "TOO FAR EAST!" 
IF EN<LO THEN PRINT "TOO FAR WEST!" 
IF EN=^LO THEN PRINT' "EAST/WEST O.. K«'" 
B:-B-l 

IF B<1 THEN 1000 
REM ">^*-^- RANDOMLY 
X^^INT (RND ( 1 ) -^30) 
IF X-7 THEN 800 
IF X-::13 THEN 900 
PRINT 
GOTO 270 
REM •^•^•>^ (AfIN 
CLS 

PRINT "YOU HIT IT 
PRINT 

PRINT "PRESS (ENTER) 
GOSUB 1100 
RUN 

REM J^-M-^ HIT MOM OR COP 
PRINT 

VOU HIT YOUR MOM ON THE SIDEWALK!" 
YOU LOSE LIKE YOU WOULDN T BELIEVE. 



IN" 10™B" TRIES" 



TO PLAY AGAIN- 



PRINT " 
PRINT " 
END 
CLS 

PRINT " 
PRINT " 
PRINT " 
END 

RETM -^-^-^ 
F'RINT 
PRINT 
PRINT 
PR I N { 
PRINT 
PRINT 
END 

INPUT R 
RETURN 



POLICEMAN 
OUR 



YOU HIT A 
HE CONFISCATES 
YOU LOSE! " 

LOSE -fr-^-^^ 

"YOU RE OUT OF 
"BALLOONS. YOU 
"THE COORDINATES 
"NORTH/SOUTH::="LA 
"EAST/WEST=:-^"LO 



ON THE 
HOOPn " 



HEAD. 



WATER" 
LOSE ! " 
WEREs " 



WAIT ROUTINE ^^-^ 



TI99/ 4 A ^ 



TI-99/4A 

1 REM -^-^-^f WATER BALLOONS 
10 8^-10 
20 CAIJ.. CLEAR 
30 PRINT "WATER 
40 PR IN I 
50 PRINT "PRESS 
60 INPUT R:$: 
70 CALL CLEAR 

30 PRINT "YOU ARE ON THE 7TH" 
90 PRINT "FLOOR BALCONY OF A" 
100 PRINT "BUILDING. BLINDFOLDED 
110 PRINT "YOU ARE TRYING TO" 



BALLOONS ! ^' 
(ENTER) TO 



BEGIN" 
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120 PRir^4T "DROP WATER BALLODiMS , " 
130 PRINT "IMTO THE CENTER OF" 
140 PRINT "A HOOP ON THE GROUND- " 
150 PRINT "TO DO SO YOU MUST SET" 
160 PRINT "YOUR NORTH /SOUTH AND" 
170 PRINT "WEST/EAST COORDINATES" 
180 PRINT "WITH YOUR FRIEND'S" 
190 PRINT "HELP ON THE 8R0UND« " 

199 REM •^•x-J^ RANDOMLY PICK COORDINATES ^-^^ 

200 RANDOMIZE 

210 LA=^INT ( lO-J^-RND) -t-l 

220 LO^INT" (iO-5«RND) -M 

230 PRINT "PRESS (ENTER) TO PLAY" 

240 INPUT m 

250 CALL CLEAR 

260 PRINT" 

270 PRINT " 1::^:EXTREME SOUTH " 

280 PRINT " 10=::^=EXTREME NORTH" 

290 PRINT "1-EXTF^EME WEST " 

300 PRINT "lO^EXTREME EAST" 
310 PRINT 

319 REM ^^-^ INPUT GUESS ^^-^ 

320 PRINT "YOU NOW HAVE";e 
330 PRINT' "WATER BALLOONS" 
340 PRINT "WHAT S VOUR GUESS" 
350 FRIHT "(BETWEEN 1 AND 10)" 
360 PRINT "FOR THE NORTH/SOUTH" 
370 PRINT "COORDINATE";; 

380 ]:nput NS 

389 REM COMPARE COORDINATES ^"^-^^ 

390 IF NS<. 1 THEN 3^0 
400 IF NS:>10 THEN 350 

410 PRINT "WHAl S YOUR GUESS" 

420 PRINT "FOR EAST/WEST";; 

430 INPUT EW 

440 IF Emi THEN 410 

450 IF EW>10 THEN 410 

460 IF NS--LA THEN 470 ELSE 4S0 

470 IF EW=^T.J3 THEN 730 ELSE 480 

479 REM ^-^-^^ SCROLL SCREEN -^-^^ 

480 PRINT 

490 FOR X^^^^^l 10 24 
500 PRINT 
510 NEXT X 

520- PRINT "YOUR FRIEND SAYS" 
530 PRINT 

540 IF NS>LA THEN 550 ELSE 560 

550 PRINT "TOO FAR NORTH!" 

560 IF NS<LA IHEN 570 ELSE 580 

570 PR IN I "100 FAR SOUTH!" 

5S0 IF NS^=4._H IHEN 590 ELSE 600 

590 PRINT "NORH-L SGUIH 0„K.!" , 

600 IF EW>Ln THEN 6 10 ELSE 620 

610 PRINT "TOO FAR EAST!" 

620 IF EW<LO T'HEN 630 ELSE 640 

630 PRINT "TOO FAR WEST!" 

640 IF EM^LO THEH 650 ELSE 660 

650 PRINT "EAST /WES I G.{<«!" 

660 B^e-"1 ■ ' 
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670 IF B<1 THEN 890 

679 REM *** pick; TWO OTHER WAYS TO LOSE *** 

680 X- I NT ( 30*RND ) + 1 
690 IF X=7 THEN 790 
700 IF X=13 THEN 840 
710 PRINT 

720 GOTO 270 
730 CALL CLEAR 

740 PRINT "GOT IT IN" ; 9--B; " TURN <S) ! " 
750 PRINT 

760 PRINT "PRESS (ENTER) TO PLAY." 
770 INPUT R* 
780 eOTO iO 

789 REM K-** HIT MOM OR COP *** 

790 CALL CLEAR 

800 PRINT "V'OU HIT VOUR MOM ON" 
8 1 PR INT " T HE S I DE W ALK ! " 
820 PRINT "YOU LOSE!" 
830 END 

840 CALL CLEAR 

850 PRINT "YOU HIT THE POLICEMAN!" 
860 PRINT "HE CONFISCATES YOUR" 
870 PRINT "HOOP. YOU LOSE!" 
880 END 
890 PRINT 

899 REM *«* OUT' OF BALLOONS -LOSE 

900 PRINT "YOU'RE OUT OF WATER" 
910 PRINT "B(U.LOONS. YOU LOSE!" 
920 PRINT "THE COORDINATES WEREs " 
930 PRINT "NORTH/ SOU TH=" j LA 

940 PR I NT " E AS |- / WES T " s LO 
950 END 

Hmex 1000 w/16K RAM Pack and Timex 1500 

1 REM *#* WATER BALLOONS TIMEX *** 
10 LET B=10 
20 CLS 

30 PRINT TAB (9) ; "WATER BALLOONS" 
40 PRINT 

50 PRINT TAB (5) 5 "PRESS (ENTER) TO BEGIN." 
60 INPUT R* 
70 CLS 

80 PRINT "YOU ARE ON THE 7TH FLOOR" 
90 PRINT "BALCONY OF A BUILDING, " 
100 PRINT "BLINDFOLDED. YOU ARE TRYING" 
110 PRINT "TO DROP WATER BALLOONS INTO" 
120 PRINT "A HOOP ON THE GROUND BELOW. " 
130 PRINT "TO DO SO YOU MUST SET YOUR" 
140 PRINT "NORTH/SOUTH AND WEST/EAST" 
150 PRINT "COORDINATES ACCORDING TO YOUR" 
160 PRINT "FRIENDS HELP ON THE GROUND." 

169 REM *** PICK COORDINATES *** 

170 LET A=INT (RND*10)+1 
180 LET 0=INT (RND*10)+1 
190 PRINT 

200 PRINT "PRESS (ENTER) TO CONTINUE." 
210 INPUT R* 
220 CLS 

230 PRINT "1=EXTREME SOUTH/ 10=EXTREME NORTH" 



88 



10 AWESOME PROGRAMS FROM K-POWER 



240 PRINT "1=EXTREME WEST/ 10«EXTREME EAST" 
250 PRINT 

260 PRINT "YOU NOW HAVE ";B5" WATER BALLOONS." 
270 PRINT "WHAT IS YOUR GUESS, BTWN 1-10" 
280 PRINT "FOR THE NORTH /SOUTH COORDINATE?" 
290 INPUT N 

300 IF N<1 OR N>10 THEN GOTO 260 

310 PRINT "WHAT IS YOUR GUESS FOR WEST/EAST?" 

320 INPUT W 

330 IF W<1 OR W>10 THEN GOTO 310 
340 IF N=A AND W»0 THEN GOTO 530 

349 REM *** SCROLL SCREEN *** 

350 FOR X=l TO 8 
360 SCROLL 

370 PRINT 
380 NEXT X 
390 CLS 

399 REM #♦« COMPARE COORDINATES **» 

400 IF N>A THEN PRINT "TOO FAR NORTH" 
410 IF N<A THEN PRINT "TOO FAR SOUTH" 
420 IF N=A THEN PRINT "NORTH, SOUTH O.K." 
430 IF W>0 THEN PRINT "TOO FAR EAST" 

440 IF W<0 THEN PRINT "TOO FAR WEST" 
450 IF W=0 THEN PRINT "EAST, WEST O.K." 
460 LET B=B-1 
470 IF B<1 THEN GOTO 800 

479 REM *** RANDOM PICK OF TWO OTHER WAYS TO LOSE **» 

480 LET X=INT (RND*30)+1 
490 IF X=7 THEN GOTO 600 
500 IF X=13 THEN GOTO 700 
510 PRINT 

520 GOTO 230 

529 REM »«* WIN **« 

530 CLS 

540 PRINT "YOU HIT IT IN ";10-B;" TRIES" 
550 PRINT 

560 PRINT "PRESS (ENTER) TO PLAY AGAIN. " 
570 INPUT R* 
580 RUN 

599 REM »** HIT MOM OR POLICEMAN *** 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE" 
620 PRINT "WALKED OUT TO SEE WHAT WAS" 
630 PRINT "GOING ON. YOU LOSE. " 
640 GOTO 850 
700 CLS 

710 PRINT "YOU HIT THE POLICEMAN ON THE" 
720 PRINT "HEAD. HE CONFISCATES YOUR HOOP" 
730 PRINT "AND YOU LOSE THE GAME." 
740 GOTO 850 

799 REM **« LOSE *** 

800 PRINT 

810 PRINT "YOU ARE OUT OF WATER BALLOONS." 
820 PRINT "YOU LOSE. THE COORDINATES WERE:" 
830 PRINT "NORTH/SOUTH="; A 
840 PRINT "EAST/WEST=";0 
850 REM *** END **♦ 
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TRS-80 Color Computer 

1 REM ♦** WfiTER BALLOONS TRS-80 COLOR 



10 

20 
30 
40 
50 
60 
70 
80 
90 

100 

110 
120 
130 
140 
150 
160 
170 
180 
190 
199 

200 

£10 
220 
£30 
240 
£50 
260 
£70 
280 

300 

310 
319 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
419 
420 
430 
440 
450 
4&0 
470 
479 
480 
490 

500 

510 
520 

90 



B=10 
CLS 
PRINT 
PRINT 
PRINT 
GOSUB 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"WfiTER BftLLOONS!" 



"PRESS 

1100 



(ENTER) TO BESIN" 



"YOU ARE ON THE 7TH" 
"FLOOR BALCONY OF fl" 
"BUILDING, BLINDFOLDED" 
"YOU ARE TRYING TO" 
"DROP WATER BALLOONS, " 
"INTO THE CENTER OF" 
"A HOOP ON THE GROUND BELOW. " 
"TO DO SO, YOU MUST SET" 
"YOUR NORTH/SOUTH AND" 
"WEST/EAST COORINATES" 
"WITH YOU FRIEND'S" 
"HELP ON THE GROUND. " 
REM ♦** RANDOMLY PICK COORDINATES *♦* 
LA=RND(10) 
LO=RND(10) 
PRINT 

"PRESS (ENTER) TO PLAY" 

1100 



"1=EXTREME SOUTH-" 
"10=EXTREME NORTH" 
"1=EXTREME WEST-" 
"10=EXTREME EAST" 



PRINT 
GOSUB 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

REM ♦** MAIN LOOP 

PRINT "YOU NOW HAVE"B"WATER BALLOONS. 

PRINT "WHAT IS YOUR GUESS" 

PRINT "(BETWEEN 1 AND 10)" 

PRINT "FOR THE NORTH/SOUTH" 

INPUT "COORDINATE" ;NS 

IF NS<1 OR NS>10 THEN 340 

PRINT "WHAT'S YOUR GUESS" 

INPUT "FOR EAST/WEST" ;EW 

IF EW<1 OR EW>10 THEN 380 

IF NS=LA AND EW=LO THEN 700 

REM ♦♦* SCROLL SCREEN **♦ 

PRINT 

FOR X=l TO 24 

PRINT 

NEXT X 

PRINT "YOUR FRIEND BELOW SAYS" 
PRINT 

REM *♦* COMPARE COORDINATES 
IF NS>LA THEN PRINT "TOO FAR NORTH!" 
IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
IF NS=LA THEN PRINT "NORTH/SOUTH O.K. 
IF EW)LO THEN PRINT "TOO FAR EAST! 
IF EW<LO THEN PRINT "TOO FAR WEST!" 
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530 
540 
550 
559 
5G0 
570 
580 
590 

600 

699 

700 

710 
720 
730 
740 
750 
799 

800 

810 
820 
830 
840 

900 

910 
9£0 
930 
940 
999 

1000 
1010 
1020 
1030 
1040 
1050 
1060 

1099 

1100 

1120 



IF EW=LO THEN PRINT "EflST/WEST O.K.!" 
B=B~1 

IF B<1 THEN 1000 

REM ♦»* RfiNDOMLY TWO OTHER WAYS TO LOSE ♦♦* 
X=RND(30) 



IF X=7 THEN 800 
IF X=13 THEN 900 
PRINT 
GOTO 270 
REM *** WIN! *** 
CLS 

PRINT "YOU HIT IT IN" 10-B"TRIES" 
PRINT 

PRINT "PRESS (ENTER) TO PLOY flGftIN" 
GOSUB 1100 
RUN 

REM *** HIT MOM OR COP *♦* 
PRINT 

PRINT "YOU HIT YOUR MOM ON" 
PRINT "THE SIDEWALK!" 
PRINT "YOU LOSE! " 
END 
CLS 

PRINT "YOU HIT ft POLICEMAN ON THE HEAD." 
PRINT "HE CONFISCATES YOUR HOOP. " 
PRINT "YOU LOSE!" 
END 

REM LOSE *** 

PRINT 

PRINT "YOU' RE OUT OF WATER" 
PRINT "BALLOONS. YOU LOSE!" 
PRINT " THE COORDINATES WERE:" 
PRINT "NORTH/SOUTH="LA 
PRINT "EAST/WEST="LO 
END 

REM *** WAIT ROUTINE *** 
INPUT R* 
RETURN 



TRS-80 Model III and Model 4 

1 REM *** WATER BALLOONS 



TRS-80 MODELS 3 AND 4 *** 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130, 
140 
149 
150 
160 
170 



B=10 
CLS 
PRINT 
PRINT 
PRINT 
GOSUB 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TAB (32) "WATER BALLOONS I 



TABC 
1 000 



IS) "PRESS (ENTER) TO BEGIN"; 



"YOUR ARE ON THE 7TH FLOOR BALCONY OF A" 
"BUILDING, BLINDFOLDED. YOU ARE TRYING" 
"TO DROP WATER BALLOONS INTO A HOOP ON" 
"THE GROUND BELOW. TO DO SO, YOU MUST" 
"SET YOUR NORTH/SOUTH AND WEST/EAST" 
"COORDINATES ACCORDING TO YOUR FRIEND'S" 
"HELP ON THE GROUND." 
REM *«* RANDOMLY PICK COORDINATES *** 
LA=RND(10) 
L0=RND(10) 
PRINT 
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130 PRINT 

190 PRINT "1=EXTREME SOUTH - 10=EXTREME NORTH" 
200 PRINT "1=EXTREME WEST - 10=EXTREME EAST" 
210 PRINT 

220 PRINT "YOU NOW HAVE"B"WATER BALLOONS. " 
230 PRINT "WHAT'S YOUR GUESS (BETWEEN 1 AND 10)" 
240 INPUT "FOR THE NORTH/SOUTH COORDINATE" ; NS 
250 IF NS<1 OR NS>10 THEN 230 

260 INPUT "WHAT'S YOUR SUESS FOR WEST/EAST" ; EW 
270 IF EW<1 OR EW>10 THEN 230 
280 IF NS=LA AND EW=LO THEN 500 

289 REM **♦ SCREEN SCROLL *♦* 

290 FOR X=l TO 24 
300 PRINT 

310 NEXT X 
320 CLS 

330 PRINT "YOUR FRIEND BELOW SAYS: " 
340 PRINT 

349 REM *** COMPARE COORDINATES *♦# 

350 IF NS>LA THEN PRINT "TOO FAR NORTH!" 
360 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
370 IF NS=LA THEN PRINT "NORTH/SOUTH O.K.!" 
380 IF EW>LO THEN PRINT "TOO FAR EAST!" 
390 IF EW<LO THEN PRINT "TOO FAR WEST!" 
400 IF EW=LO THEN PRINT "EAST/WEST O.K.'" 
410 B=B-1 

420 IF B<1 THEN 800 

429 REM **» RANDOMLY TWO OTHER WAYS TO LOSE *** 

430 X=RND(30) 

440 IF X=7 THEN 600 
450 IF X=13 THEN 700 
460 PRINT 
470 GOTO 190 

499 REM *** WIN! *** 

500 CLS 

510 PRINT "YOU HIT IT IN" 10-B"TRIES ! " 
520 PRINT 

530 PRINT "PRESS (ENTER) TO PLAY AGAIN" 
540 GOSUB lOOO 
550 RUN 

599 REM *** HIT MOM OR COP ♦*» 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 
620 PRINT "OUT TO SEE WHAT WAS GOING ON!" 
630 PRINT "YOU LOSE!" ' 
640 END 
700 CLS 

710 PRINT" YOU HIT A POLICEMAN ON THE HEAD." 
720 PRINT "HE CONFISCATES YOUR HOOP" 
730 PRINT "AND YOU LOSE THE GAME!" 
740 END 

799 REM *** LOSE ♦** 

800 PRINT 

810 PRINT "YOU'RE OUT OF WATER BALLOONS ! " 
820 PRINT "YOU LOSE. THE COORDINATES WERE:" 
830 PRINT "NORTH/SOUTH="LA 
840 PRINT "EAST/WEST="LO 
850 END 

999 REM **♦ WAIT ROUTINE 
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1000 INPUT R* 
1010 RETURN 

yic-20 

i REM WATER BftLLOONS VIC-20 **♦ 

10 B=10 

£0 PRINT CHR*<147) 

30 PRINT "WATER BALLOONS!" 

40 PRINT 

50 PRINT "PRESS (SHIFT) TO BEGIN" 
60 GOSUB 1100 
70 PRINT CHR*<147) 
80 PRINT "YOU ARE ON THE 7TH" 
90 PRINT "FLOOR BALCONY OF A" 
100 PRINT "BUILDING, BLINDFOLDED. " 
110 PRINT "YOU ARE TRYING TO" 
1£0 PRINT "DROP WATER BALLOONS" 
130 PRINT "INTO THE CENTER OF" 
140 PRINT "A HOOP ON THE GROUND. " 
150 PRINT "TO DO SO, YOU MUST" 
160 PRINT "SET NORTH/SOUTH AND" 
170 PRINT "WEST/EAST COORDINATES" 
180 PRINT "WITH YOUR FRIEND'S" 
190 PRINT "HELP ON THE GROUND." 
199 REM *** PICK COORDINATES *** 
£00 LA=INT(RND(1)*10)+1 
£10 LO=INT(RND(1)*10)+1 
££0 PRINT 

£30 PRINT "PRESS (SHIFT) TO PLAY" 

£40 GOSUB 1100 

£50 PRINT CHR*(i47) 

260 PRINT 

£70 PRINT "1=EXTREME SOUTH-" 
£80 PRINT "10=EXTREME NORTH" 
£90 PRINT "1=EXTREME WEST-" 
300 PRINT "10=EXTREME EAST" 
310 PRINT 

3£0 PRINT "YOU NOW HAVE"B" WATER BALLOONS" 

330 PRINT "WHAT'S YOUR GUESS" 

340 PRINT "(BETWEEN 1 AND 10)" 

350 PRINT "FOR THE NORTH/SOUTH" 

360 INPUT "COORDINATE" ;NS 

370 IF NS<i OR NS> 10 THEN 340 

380 PRINT "WHAT'S YOUR GUESS" 

390 INPUT "FOR EAST/WEST" ;EW 

400 IF EWd OR EW>10 THEN 380 

410 IF NS=LA AND Ew=LO THEN 700 

4£0 PRINT 

4£9 REM *** SCROLL SCREEN ♦** 
430 FOR X=l TO £4 
440 PRINT 
450 NEXT.X 

460 PRINT "YOUR FRIEND BELOW SAYS" 
470 PRINT 

479 REM *** COMPARE COORDINATES.*** 

480 IF NS)LA THEN PRINT "TOO FAR NORTH!" 
490 IF NS<LA THEN PRINT "TOO FAR SOUTH!" 
500 IF NS=LA THEN PRINT "NORTH, SOUTH O.K. !" 
510 IF EW)LO THEN PRINT "TOO FAR EAST!" 
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520 IF EW<LO THEN PRINT "TOO FAR WEST!" 
530 IF EW=LO THEN PRINT "EAST, WEST O.K.!" 
540 B=B-1 

550 IF B<1 THEN 1000 

559 REM RANDOMLY PICK £ OTHER WAYS TO LOSE *** 

560 X=INT(RND<1)»30)+1 
570 IF X=7 THEN 800 
580 IF X=13 THEN 900 
590 PRINT 

600 GOTO 270 

699 REM *** WIN! *«* 

700 PRINT CHR*(147) 

710 PRINT "GOT IT IN" 10-B"TRIES ! " 
720 PRINT 

730 PRINT "PRESS < SHI FT) TO PLAY. 
740 GOSUB 1100 
750 RUN 

799 REM *«* HIT MOM OR POLICEMAN 

800 PRINT 

810 PRINT "YOU HIT YOUR MOM ON" 
820 PRINT "THE SIDEWALK!" 
830 PRINT "YOU LOSE!" 
840 END 

900 PRINT CHR*(147) 

910 PRINT "YOU HIT THE POLICEMAN!" 
920 PRINT "HE CONFISCATES YOUR" 
930 PRINT "HOOP. YOU LOSE!" 
940 END 

999 REM *** LOSE *** 

1000 PRINT 

1010 PRINT "YOU'RE OUT OF WATER" 
1020 PRINT "BALLOONS. YOU LOSE!" 
1030 PRINT "THE COORDINATES WERE:" 
1040 PRINT "NORTH/SOUTH="LA 
1050 PRINT "EAST/WEST="LO 
1060 END 

1099 REM *♦* WAIT ROUTINE ♦** 

1100 WAIT 653, 1 
1110 WAIT 653, 1,1 
1120 RETURN 
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BONUS PROGRAM #7 

THE MONSTER IN THE MARSH 

If you're the type o-f person who enjoys traipsing through 
slushy, -foggy, rocky places, without really getting wet, 
then THE MONSTER IN THE MARSH is for you. To win this 
game you make your way to the end of the marsh „ You do 
this by tossing rocks left, right, or straight ahead, to 
check if it's safe to move. After each time you toss a 
rock, you have the choice of moving, or staying where you 
are. Watch your step! If you move to an unsafe spot, 
you'll sink. But everytime you stay where you are, the 
MONSTER OF THE MARSH gains a step on you. Sooner, or 
later, it's sink or swim in this marsh! 



ADAM 



1 

10 
20 
30 
40 
50 
60 



THE MONSTER OF THE MARSH ADAM 



REM *** 
s = 15 
m = 15 
r = 24 
HOME 

PRINT tab(3); 
^„ PRINT 
70- PRINT TAB(4)J 
80 GET n$ 

X = INT(RND(1 )*3)+1 
REM *** main loop 
HOME 

IP r < 1 THEN fl = 1 
PRINT "You are s; 
PRINT "marsh' s end" 
PRINT "you have "; r; 
PRINT "your pocket" 
PRINT "the monster is 
"behind you." 



**** 



"THE MONSTER IN THE MARSH" 
"Press any key to begin." 



90 
99 
100 
110 
120 
125 
130 
.135 
140 
145 
150 
160 
170 
180 
190 
200 
2iO 
220 
230 
240 
250 
260 
300 
310 
315 
320 
330 
340 
350 



*** 



step(s) from the" 
' rock(s) in" 
' ; m; " step( s) " 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
IP fl 
PRINT 
PRINT 
INPUT 
IP fl 
IP ch 
ON ch 
HOME 
PRINT 
PRINT 
PRINT 
GOSUB 
f 1 = 1 
HOME 



"Your choices are:" 

"1 ) Take a step" 

"2) Stay where you are" 

= THEN PRINT "3") Toss a rock" 



"Type a number, then (RETURN)." 
"What is your choice: "; ch 
= 1 AND ch > 2 THEN' 220 

< 1 OR ch > 3 THEN PRINT "Between 1 and 3, please!": GOTO 220 
GOTO 700, 1000, 300 



"Type the number of 
"direction you want 
"the rock" 
2000 



the" 

to throw" 
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360 IF X <> w THEN PRINT "SPLASH!" 
370 IP X = w THEN PRINT "THUD!" 
380 r = r-1 

390 IF m < 1 THEN 4000 
400 PRINT 

410 PRINT "Press any key to continue." 
420 GET n$ 
430 GOTO 100 

699 REM *** take a step routine *** 

700 HOME 

710 PRINT "Press the number of the" 
720 PRINT "direction you want to step in" 
730 GOSUB 2000 
740 HOME 

750 IF w Ox THEN PRINT "SPLASH! YOU'RE SINKING!" 
760 z = INT(RND(1 )*3)+1 

770 IF w <> X AND z = 1 THEN m = m-1 : PRINT "BUT, you pull yourself 
out ! " 

780 IP w <> X AND z <> 1 THEN PRINT "YOU LOSE!": END 
790 IP w = X THEN s = s-.1. : PRINT "You stepped safely!" 
800 IP m < 1 THEN 4000 
810 IP s < 1 THEN 4000 
820 PRINT 

830 PRINT "Press any key to continue." 
840 f 1 = 
850 GET n$ 
860 GOTO 90 

999 REM *** stay where you are *** 
1000 m = m-1 
1010 IP m < 1 THEN 4000 
1020 f 1 = 
1030 GOTO 100 

1999 REM *** choose direction *** 

2000 PRINT "then press (RETURN)." 
2010 PRINT 

2020 PRINT "1 ) left" 

2030 PRINT "2) right" 

2040 PRINT "3) straight ahead" 

2050 PRINT 

2060 INPUT "Which way: "; w 

2070 IF w < 1 AND w > 3 THEN PRINT "Between 1 and 3 , please!":' GOTO 2060 
2080 RETURN ^» ^ . . 

3999 REM *** LOSE *** 

4000 HOME 

4010 PRINT "The monster eats you and says," • 
4020 PRINT "'Gould use a hit more salt!'" 
4030 PRINT "You lose, for sure.": END 

4999 REM *** WIN 

5000 HOME 

5010 FOR t = 1 TO 200 
5020 PRINT " YOU MADE IT ! ! ! " 
5030 NEXT t 



96 



10 ANTESOME PROGRAMS FROM K-PCWER 



Apple II and Apple He 




1 REM THE MONSTER OF THE MARSH APPLE 




10 S 


= 15 






20 M 


= 15 






30 R 


= 24 






40 


HOME 






50 


PRINT 


TAB( 7) "THE MONSTER IN THE MARSH" 




60 


PRINT 






70 


PRINT 


TAB( 8) "PRESS ANY KEY TO BEGIN." 




80 


GET m 






90 X 


= INT < RND <1) * 3) -f- 1 




99 


REM *** MAIN LOOP 




1 00 


rlUnti 






110 


IF R < 


; 1 THEN FL = 1 




120 


PRINT 


"YOU ARE "S" STEP(S) FROM THE MARSH'S END" 




1 30 


PRINT 


"YOU HAVE "R" ROCK(S) IN YOUR POCKET" 




140 


PRINT 


"THE MONSTER IS "M" STEP(S) BEHIND YOU" 




150 


PRINT 






160 


PRINT 


"YOUR CHOICES ARE: " 




170 


PRINT 






180 


PRINT 


"D TAKE A STEP" 




190 


PRINT 


"2) STAY WHERE YOU ARE" 




200 


IF PL 


= THEN PRINT "3) TOSS A ROCK" 




210 


PRINT 






220 


PRINT 


"TYPE A NUMBER, THEN PRESS (RETURN)." 




230 


INPUT 


"WHAT IS YOUR CHOICE: " ; CH 




240 


IF FL 


= 1 AND CH > 2 THEN 220 




250 


IF GH 


< 1 OR CH > 3 THEN PRINT "BETWEEN 1 AND 3, 


PLEASE • " s GOTO 


260 


220 
ON CH 


GOTO 700 , 1 000 , 300 




300 


HOME 






310 


PRINT 


"TYPE THE NUMBER OF THE DIRECTION" 




320 


PRINT 


. "YOU WANT TO THROW THE ROCK. " 




330 


60SUB 


2000 




340 


FL = 1 






350 


HOME 






360 


IF X • 


.: • > W THEN PRINT "SPLASH!" 




370 


IF X 


= W THEN PRINT "THUD! " 




380 


R = R • 


- 1 




390 


IF M 


< 1 THEN 4000 




400 


PRINT 






410 


PRINT 


"PRESS ANY KEY TO CONTINUE. " 




420 


GET N*' 




430 


60T0 


100 




699 


REM 


*** TAKE A STEP ROUTINE *** 




700 


HOME 






710 


PRINT 


"PRESS THE NUMBER OF THE DIRECTION" 




720 


PRINT 


"YOU WANT TO STEP IN," 




730 


BOSUB 


2000 




740 


HOME 






750 


IF W 


> X THEN PRINT "SPLASH! YOU'RE SINKING! 


II 


760 


Z = INT ( RND <1) * 3) + 1 




770 


IF W 


> X AND Z = 1 THEN M = M - Is PRINT "BUT, 


YDLI PULL 




YOURSELF OUT ! " 




780 


IF W 


> X AND Z < > 1 THEN PRINT "YOU LOSE!": 


END 


790 


IF W 


= X THEN S = S - Is PRINT "YOU STEPPED SAFELY!" 


800 


. IF M 


< 1 THEN 4000 




810 


IF S 


c: 1 THEN 5000 
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B20 PRINT 

830 PRINT "PRESS ANY KEY TO CONTINUE. " 
840 FL =0 
850 BET N# 
860 60T0 90 

999 REM *** STAY WHERE YOU ARE **# 

1000 M = M - 1 

1010 IF M < 1 THEN 4000 
1020 FL = 
1030 GOTO 100 

1999 REM *** CHOOSE DIRECTION »** 

2000 PRINT "THEN PRESS (RETURN)." 
2010 PRINT 

2020 PRINT "D LEFT" 

2030 PRINT "2) RIGHT" 

2040 PRINT "3) STRAIGHT AHEAD" 

2050 PRINT 

2060 INPUT "WHICH WAY: ";W 

2070 IF W < 1 OR W > 3 THEN PRINT "BETWEEN 1 AND 3, PLEASE!": GOTO 

2060 

2080 RETURN 

3999 REM *** LOSE *** 

4000 HOME 

4010 PRINT "THE MONSTER EATS YOU AND SAYS," 
4020 ■ PRINT "'COULD USE A BIT MORE SALT!'" 

4030 PRINT "YOU LOSE, FOR SURE.": END 

4999 REM **# WIN *** 

5000 HOME 

5010 FOR T = 1 TO 200 

5020 PRINT " YOU MADE IT ! ! ! " 

5030 NEXT T 



Atari 

1 REM THE MONSTER IN THE MARSH ATARI *** 

10 DIM R*(l) 

20 S=15:M=^15;R=:.-:24 

30 PRINT CHR$(125) 

40 POSITION 7,0 

50 PRINT "THE MONSTER IN THE MARSH:" 
60 POSITION 7,3 

70 PRINT "F'RESS (RETURN) TO BEGIN"; 

80 GOSUB 3000 

90 X = I NT ( RND ( 1 ) m-:5 ) + 1 

99 REM *** MAIN LOOP *** 

100 PRINT CHRf(125) 
110 IF R<1 THEN FL--^1 

120 PRINT "YOU'RE ";Sg" STEP(S) FROM THE MARSH EDGE" 
130 PRINT "YGU HAVE "5R5" RaCK(S) IN YOUR POCKET" 
140 PRINT "THE MONSTER IS "5M1;" STEP(G) BEHIND YOU" 
150 PRINT 

160 PRINT "YOUR CHOICES ARE:" 
170 PRINT 

leO PRINT "1) TAKE A STEP" 

190 PRINT "2) STAY WHERE YOU AF<E" 

200 IF FL=0 THEN PRINT "3) TOSS A ROCK" 

210 PRINT 

220 PRINT "ENTER YOUR CHOICE, THEN PRESS (RETURN)" 
230 INPUT CH 
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240 


IF FL=1 AND CH>2 THEN SOTO 220 




250 


IF CH<1 OR CH>3 THEN PRINT "BETWEEN 1 AND 3, PLEASE !" 5 GOTO 220 


260 


ON CH GOTO 700,1000,300 




299 


^^.x. THROW A ROCK ROUTINE 




300 


PRINT CHRt(125) 




3 1 


PRINT "TYPE THE NUMBER OF THE DIRECTION" 




320 


PRINT "YOU WANT TO TOSS THE ROCK," 




330 


ROSI IF{ 2000 




340 


FL-1 




350 


PF< I NT C\'\R'$' ( 1 25 ) 




360 


IF XOW THEN PRINT "SPLASH!" 




370 


IF X==:W THEN PRINT "THUD!" 




380 


R--^R- 1 




390 


IF M<i THEN 4000 




400 


PRINT 




410 


PRINT "PRESS (RETURN) TO CONTINUE. " 




420 


GOSUB 3000 




430 


GOTO 100 




699 


REM ' TAKE A STEP ROUTINE x-i^-x- 




700 


PRINT CHR*(125) 




710 


PRINT "PRESS THE NUMBER OF THE DIRECTION" 




720 


PRINT "YOU WANT TO STEP IN," 




730 


GOSUB 2000 




740 


PRINT CHR:f (125> 




750 


I F W< > X THEN PR I NT " SPLASH ! YOU 'RE SI NK I NG ! " 




760 


Z-'= I MT ( FsND ( 1 ) -^3 ) 4- 1 




770 


IF WOX AND Z--1 THEN M==^M-" Is PRINT "BUT, YOU PULL 


YOURSELF OUT ! " 


780 


IF WOX AND ZOl THEN PRINT "YOU LOSEi"?END 






IF W^^X THEN S:^:=S-1 ;! PRINT "YOU STEPPED SAFELY!" 




800 


IF M<1 THEN 4000 




810 


IF S<1 THEN 5000 




820 


PRINT 




830 


PRINT " F'RESS (RETURN) TO CONTINUE." 




840 


FL-0 




850 


GOSUB 3000 




860 


GOTO 90 




999 


REM •^••^••^ STAY WHERE YOU ARE -J^-^-J?- 




1.000 M-^M 1 




101 


IF M<1 THEN 4000 




102 


FL^-0 




1030 GOTO 100 




1999 REH CHGGBE DIF^ECTIDN -^^^ 




2000 F'RINT "Tl-IEN F'RESS Tl-IE (RETURN.) KEY.." 




20 1 


PRINT 




202 


PRINT "D LEFT" 




2030 PRINT '^2). RIGHT" 




2040 PRINT "3) STRAIGHT AHEAD" 




205 


PRINT 




206 


PRINT "WHICH WAY" 




206 


5 INPUT W 




2070 IF W< 1 OR W>3 THEN PRINT "BETWEEN 1 AND 3 PLEA 


3E ! " 1'. GOTO 2060 


20S0 RETURN 

2999 REM "^-^^ INPUT ROUTINE 




600 


INPUT R-$ 




302 


RETURN 




3999 REIM ^-^'-^ LOSE 




400 


PRINT CHR::|?(125) 




401 


PRINT "THE MONSTER EATS YOU AND SAYS," 




4020 F'RINT "'COULD USE A BIT MORE SALT!'" 
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4030 PRINT "YOU LOSE, FOR SURE«"sEND 




4999 REM -J^*-^- WIN -s-x-^ 




5000 PRINT CHR$(125) 








5020 PRINT " YOU MADE IT i!!"; 




5030 NEXT T 




Commodore 64 




1 REM THE MONSTER IN THE MARSH 64 *** 




10 S=15 




£0 M=15 




30 R=E4 




40 PRINT CHR*(147) 




50 PRINT TfiB (7) "THE MONSTER IN THE MARSH!" 




60 PRINT 




70 PRINT TflB(a) "PRESS (SHIFT) TO BEGIN." 




80 GOSUB 3000 




90 X=INT(RND<1)*3)+1 




99 REM **♦ MAIN LOOP 




100 PRINT CHR*(147) 




110 IF R<1 THEN FL=1 




120 PRINT "YOU flRE"S"STEP(S) FROM THE MARSH'S 


END" 


130 PRINT "YOU HAVE" R" ROCK (S) IN YOUR POCKET" 




140 PJRINT "THE MONSTER IS"M"STEP(S) BEHIND YOU" 


150 PRINT 




160 PRINT "YOUR CHOICES AREs" 




170 PRINT 




180 PRINT "1) TAKE A STEP" 




190 PRINT "£) STAY WHERE YOU ARE" 




£00 IF FL=0 THEN PRINT "3) TOSS A ROCK" 




£10 PRINT 




££0 PRINT "TYPE A NUMBER, THEN PRESS (RETURN). 


II 


£30 INPUT "WHAT IS YOUR CHOICE" ;CH 




£40 IF FL=1 AND CH> £ THEN ££0 




£50 IF CH<1 OR CH>3 THEN PRINT "BETWEEN 1 AND 


3, PLEASE ! " s GOTO £23 


£60 ON CH GOTO 700, 1000, 300 




£99 REM *♦* TOSS A ROCK ♦** 




300 PRINT CHR*(147) 




310 PRINT "TYPE THE NUMBER OF THE DIRECTION" 




3£0 PRINT "YOU WANT TO THROW THE ROCK, " 




330 GOSUB £000 




340 FL=i 




350 PRINT CHR*(147) 




360 IF XOW THEN PRINT "SPLASH!" 




370 IF X=W THEN PRINT "THUD!" 




380 R=R-1 




390 IF M<1 THEN 4000 




400 PRINT 




410 PRINT "PRESS (SHIFT) TO CONTINUE." 




420 GOSUB 3000 




430 GOTO 100 




699 REM *** TAKE A STEP ROUTINE *** 




700 PRINT CHR*(147) 




710 PRINT "PRESS THE NUMBER OF THE DIRECTION" 




7£0 PRINT "YOU WANT TO STEP IN, " 




730 GOSUB £000 




740 PRINT CHR*(147) 




750 IF WOX THEN PRINT "SPLASH! YOU'RE SINKING!" 


760 Z=INT(RND(i)*3)+l 
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770 IF WOX AND Z=l THEN M=M-ls PRINT "BUT, YOU PULL YOURSELF OUT!" 

780 IF WOX AND ZOl THEN PRINT "YOU LOSE!":END 

790 IF W=X THEN S=S-ls PRINT "YOU STEPPED SfiFELY!" 

800 IF M<1 THEN 4000 

810 IF S<1 THEN 5000 

820 PRINT 

830 PRINT "PRESS (SHIFT) TO CONTINUE." 

840 FL=0 

850 GOSUB 3000 

860 GOTO 90 

999 REM *♦♦ STAY WHERE YOU ARE **♦ 

1000 M=M-i 

1010 IF M<1 THEN 4000 
1020 FL=0 
1030 GOTO 100 

1999 REM ♦*♦ CHOOSE DIRECTION ♦** 
£000 PRINT "THEN PRESS (RETURN)." 
2010 PRINT 

2020 PRINT "D LEFT" 

£030 PRINT "2) RIGHT" 

£040 PRINT "3) STRAIGHT AHEAD" 

2050 PRINT 

2060 INPUT "WHICH WAY";W 

2070 IF W<1 OR W>3 THEN PRINT "BETWEEN 1 
2080 RETURN 

2999 REM WAIT ROUTINE ♦♦♦ 

3000 WAIT 653, 1 
3010 WAIT 653, 1, 1 
3020 RETURN 

3999 REM *** LOSE *♦* 

4000 PRINT CHR$(147) 

4010 PRINT "THE MONSTER EATS YOU AND SAYS, " 
4020 PRINT "'COULD USE A BIT MORE SALT!'" 
4030 PRINT "YOU LOSE, FOR SURE. ":END 

4999 REM **♦ WIN **♦ 

5000 PRINT CHR*(147) 
5010 FOR T=i TO £00 
5020 PRINT " YOU MADE IT !i! "s 
5030 NEXT T 



AND 3, PLEASE ! " : GOTO 2060 



IBM PC 

1 REM *** liOMESTGR 
10 S---15 
20 M=15 
30 R:=24 
40 CLS 
50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 



IH THE HARSH **# 



TAB (9) 
TAB (8) 



"THE MONSTER" 
" IN THE MARSH ! " 



TAB (4) "PF;:ESS any HT£Y TO BE6IN' 



90 Ai--==J NKEY* 

100 IF A*=-"" THEN 90 

109 REM x** MAIN LOOP *** 

110 X^=^RNDC3) 
120 CLS 

130 IF R<1 THEN Fl.~l 
1 4(:.i PR I NT " YOU ARE " S " STEP ( S ) " 
ISO PRINT "FROM THE MARSH'S END' 
160 PRINI 



101 



10 AWESOME PRCX3RAMS FROM K-POWER 

170 PRINT "YOU HAVE"R"ROCK(S) " 

180 PRINT "IN YOUR POCKET" 

190 PRINT 

200 PRINT "THE MONSTER IS"M 

210 PRINT "STEP<S) BEHIND YOU" 

220 PRINT 

230 PRINT "PRESS ANY KEY TO CONTINUE" 

240 A.*:=INKEY-4:- 

250 IP A*=-"" THEN 240 

260 CLS 

270 PRINT "VOUR CHOICES AREs " 

280 PRINT 

290 PRINT "D TAKE A STEP" 

300 PRINT "2) STAY WHERE YOU ARE" 

310 IF FL~=0 THEN PRINT "3) TOSS A ROCK" 

320 PRINT 

330 PRINT "TYPE A NUNBER" . 

340 PRINT "THEN PRESS (ENTER)" 

350 PRINT "WHAT IS YOUR CHOICE" 

360 INPUT CH / 

370 IF FL-1 AND CH>2 THEN 330 

380 IF CH<1 OR CH>3 THEN 260 

390 ON CH SOTO 700,1000,400 

399 REM THROW A ROCK 

400 CLS 

410 PRINT "TYPE THE NUNBER" 

420 PRINT "OF THE DIRECTION" 

430 PRINT "YOU WANT TO" 

440 PRINT "THROW THE ROCK" 

450 PRINT 

460 GOSUB 2000 

4 70 FL::-::1 

480 CL.S 

490 IF XOW ("HEN PRINT "SPLASH!" 
500 IF X:=:W THEN PRINT "THUD'" 
510 R=^R-1 

520 IF N< 1 THEN 4000 
530 PRINT 

540 FRim "PRESS ANY KEY TO CONTINUE" 

550 A:$:=^INKEY-$: 

560 IF A*:=:"" THEN 550 

570 GOTO 120 

699 REM -^■'^■'^ TAKE A SIEF' ^^^^^^^ 

700 CLS 

710 PRINT "PRESS THE NUMBER" 

720 PRINT "OF THE DIRECTION" 

730 PRINT "VOU WANT TO STEP IN h"i! PRINT 

740 GOSUB 2000 

750 CLS3 Z=::RND (4) 

760 IF W< >X THEN FRLHT "SPLASH YOU'RE SINKING!" 

780 IF WOX AND 'I-l THEN M'^^^M In PRINT "BUT. YOU PULL YOURSELF QiJT ! " 

790 !:F WOX AND Z::>1 THEH PRIHT "YOU LOSE !" s END 

800 IF W:=-X THEN S^^^S In PRINT "YOU STEPPED SAFELY'" 

810 IF h<l THEN 4U00 
820 IF S<1 THEN. 5000 
830 PRINT 
840 FL=0 

850 FRIHI "PRESS m\ KEY TO CONTINUE" 
860 A:iii^lNKEYi: 
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10 AWESOME PROGRAMS FROM K-POWER 



870 IF A*==^" 
880 GOTO 110 
999 REM SfAV 



IHEM 860 



WHERE you ARE 



1000 
1010 
1020 
1 030 
2000 
20 1 
2020 
2030 
2040^ 
2050 
2060 
2070 
2080 
2090 
2 1 00 
3999 
4000 
4010 
4020 
4030 
4999 

Sooo 

50 1 
5020 
5030 
5040 



M=M~-1 

IF M<1 THEN 4000 
FL=^0 

GOTO 110 
PRINT "THEN 



THE 



PREISS" 
(ENTER) 



KEY" 



"1 ) 

"2) 
., 3 ) 



LEFT" 
RIGHT " 
STRAIGHT 



1^1 AY 



AHEAD" 



OR 



PRINT- 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "WHICH 
INPUT W 

IF W<1 OR W>3 THEN PRINT "1. 
RETURN 

REN ^-x* TOO BAD! 
CL8 

PRINT "THE MONSTER EATS YOU AND SAYS," 
PRINT "COULD USE A BIT MORE SALT!" 
FRLHT "YOU LOSE, FOR SURE. "s END 
F:EM YOU MADE IT! 

CLS 

FOR T=^l 
PRINT " 
NEXT T 
END 



PLEASE! "sGOTO 2070 



TO 200 

YOU MADE 



IT 



TI-99/4A 

i REM -^'^-^ THE MONSTER IN THE MARSH ^^-^ 
10 8:^15 
20 M^15 
30 R^=24 
40 CALL CLEAR 
50 PRINT TAB (7) 
60 PRINT 
70 PRINT 
80 PRINT 
90 INPUT 



"THE MONSTER" 
TAB (7) n "IN THE MARSH" 



(ENTER) TO BEGIN": 



99 RiZh liAIN LOOP 

1 00 X ~ I NT ( 3*RND ) + 1 
i;i.O CALL. CLEAR 

120 IF R<1 THEM 130 ELSE 140 
130 FL--=1 



140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 PRINT 
200 PRINT 
210 PRINT 
220 PRINT 
230 PRINT 
240 PRINT 
250 PRINT 
260 PRINT 



"YOU ARE 



STEP(S) " 



" YOU HAVE " ? R ; *' ROCh:: ( 5 ) " 
"IN YOUR POCKET" 

"THE MONSTER IS";M 
"STEP<S) BEHIND YOU" 

"YOUR CHOICES ARE: " 

"D TAKE A STEP" 

•■■■2) STAY WHERE YOU ARE" 



10 AWESOME PROGRAMS FROM K-PCWER 



270 IF FL=0 THEN 280 ELSE 290 
280 PRINT "3) TOSS A ROCK" 
290 PRINT 

300 PRINT "TYPE A NUMBER" 
310 PRINT "THEN PRESS (ENTER) " 
320 PRINT "WHAT IS YOUR CHOICE"; 
330 INPUT CH 

340 IF FL=1 THEN 350 ELSE 360 
350 IF CH>2 THEN 300 ELSE 360 
360 IF CH<1 THEN 380 ELSE 370 
370 IF CH>3 THEN 380 ELSE 410 
380 PRINT "1,2 OR 3 PLEASE!" 
390 PRINT 
400 GOTO 230 

410 ON CH GOTO 620,880,420 

419 REM TOSS A ROCK *** 

420 CALL CLEAR 

430 PRINT "TYPE THE NUMBER" 

440 PRINT "OF THE DIRECTION" 

450 PRINT "YOU WANT TO" 

460 PRINT "TOSS THE ROCK," 

470 PRINT 

480 GQSUB 920 ■ 

490 FL=1 

500 CALL CLEAR 

510 IF XOW THEN 520 ELSE 530 

520 PRINT "SPLASH: " 

530 IF X=W THEN 540 ELSE 550 

540 PRINT "THUD ! " 

550 R==R-1 

560 IF M<1. THEN 1070 
570 PRINT 

580 PRINT "PRESS (ENTER) " 
590 PRINT "TO CONTINUE." 
600 INPUT R* 
610 GOTO 110 

619 REM *-**"TAKE A STEP 

620 CALL CLEAR 

630 PRINT "PRESS THE NUMBER" 
640 PRINT "OF THE DIRECTION" 
650 PRINT "YOU WANT TO STEP" 
660 GOSUB 920 
670 CALL CLEAR 

680 IF WOX THEN 690 ELSE 770 
690 Z •-= I NT ( 3* RND ) + 1 

700 F'RINT "SPLASH YOU'RE SINKING!" 

710 IF Z-1 THEN 720 ELSE 740 

720 PRINT "BUT, YOU PULL YOURSELF OUT!" 

729 REM *** STAY WHERE YOU ARE 

730 M=M-1 

740 IF ZOl THEN 750 ELSE 770 
750 PRINT "YOU LOSE!" 
760 END 

770 IF W=X THEN 780 ELSE 800 
780 PRINT "YOU STEPPED SAFELY" 
790 S=S-1 

800 IF M<1 THEN 1070 
810 IF 3<i THEN 1130 
820 PRINT 
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10 AWESOME PROGRAMS FROM K-POWER 



830 PRINT "PRESS (ENTER) " 
840 PRINT "TO CONTINUE." 
850 INPUT R* 
860 FL-=0 
870 GOTO 100 
880 M=--H-l 

890 IF M<1 THEN 1070 
900 i"L=0 
910 GOTO 100 

919 REM *** DIRECTION LOOP -i?** 

920 PRINT "THEN PRESS" 

930 PRINT " THE (ENTER) KEY. " 
940 PRINT 

950 PR' I NT "D LEFT" 

960 PRINT "2) RIGHT" 

970 PRINT "3) STRAIGHT AHEAD" 

980 PRINT 

990 PRINT "WHICH WAY", 
1000 INPUT W 

1010 IF W<1 THEN 1040 ELSE 1060 
1020. PRINT "1,2 OR 3 PLE:ASE ! " 
1030 IF Uj>3 THEN 1040 ELSE 1060 
1040 PRINT " 1 , 2 OR 3 PLEASE ! " 
1050 GOTO 1000 
1060 RETURN 

1069 REN *** YOU LOSE *** 

1070 CALL CLEAR 

iOSO PRINT "THE MONSTER EATS" 

1090 PRINT "YOU AND SAYS," 

1100 PRINT "'COULD USE A EilT MORE SALT'" 

1110 f-'RINT "YOU LOSE, FOR SURE." 

1120 END 

1130 CALL CLEAR 

1140 FOR T==l TO 100 

1150 PRINT "YOU MADE IT:!!" 

1160 PRINT 

1170 NEXT T 

1180 END 

Timex 1000 w/t6K RAM Pack and Hmex 1500 

1 REM *♦** MONStER IN THE MARSH TIMEX ♦*** 
10 LET S=15 
20 LET M=15 
30 LET R=24 
40 CLS 

50 PRINT TAB (4) ; "THE MONSTER IN THE MARSH" 
60 PRINT 

70 PRINT TAB (5) ; "PRESS (ENTER) TO BEGIN." 

80 INPUT R* 

90 RAND 
100 LET F=0 
110 LET C=0 
120 LET W=0 

130 LET X=INT (RND*3)+1 

139 REM *»* MAIN LOOP **# 

140 CLS 

150 IF R<1 THEN LET F=l 

160 PRINT "YOU ARE "5S5" STEP(S) FROM THE" 
170 PRINT "END OF THE MARSH. YOU HAVE "SR 
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10 AWESOME PROGRAMS FROM K-POWER 



180 PRINT "ROCK(S) IN YOUR POCKET." 
190 PRINT "THE MONSTER IS " ; M; " STEP (S> " 
200 PRINT "BEHIND YOU. " 
210 PRINT 

220 PRINT "YOUR CHOICES ARE:" 
230 PRINT 

240 PRINT "1) TAKE A STEP" 

250 PRINT "2) STAY WHERE YOU ARE" 

260 IF F=0 THEN PRINT "3) TOSS A ROCK" 

270 PRINT 

280 PRINT "TYPE A NUMBER, " 
290 PRINT "THEN PRESS < ENTER >. " 
300 PRINT "WHAT IS YOUR CHOICE?" 
310 INPUT C 

320 IF F=l AND C>2 THEN 60T0 280 

330 IF C<1 OR C>3 THEN PRINT "1,2 OR 5 PLEASE." 

340 IF C<1 OR C>3 THEN GOTO 280 

350 IF C=l THEN GOTO 700 

360 IF C=2 THEN GOTO 1000 

370 IF C=3 THEN GOTO 400 

400 CLS 

410 PRINT "TYPE THE NUMBER OF THE DIRECTION" 
420 PRINT "YOU WANT TO THROW THE ROCK." 
430 GOSUB 2000 
440 LET F=l 
450 CLS 

460 IF XOW THEN PRINT "SPLASH" 

470 IF X=W THEN PRINT "THUD" 

480 LET R=R-1 

490 IF M<1 THEN GOTO 4000 

500 PRINT 

510 PRINT "PRESS < ENTER) TO CONTINUE." 
520 INPUT R* 
530 GOTO 140 

699 REM *♦» TAKE A STEP ♦*» 

700 CLS 

710 PRINT "TYPE THE NUMBER OF THE DIRECTION" 
720 PRINT "YOU WANT TO STEP IN. " 
730 GOSUB 2000 
740 CLS 

750 IF WOX THEN PRINT "SPLASH" 
760 LET Z=0 

770 LET Z=INT (RND*3)+1 

780 IF WOX AND 1-1 THEN LET M=M-1 

790 IF WOX AND Z=l THEN PRINT "BUT YOU PULLED YOURSELF OUT. 
800 IF WOX AND ZOl THEN PRINT "YOU LOSE." 
810 IF WOX AND ZOl THEN GOTO 5040 
820 IF W=X THEN LET S=S-1 

830 IF W=X THEN PRINT "YOU STEPED SAFELY." 
840 IF M<1 THEN GOTO 4000 
850 IF S<1 THEN GOTO 5000 
860 PRINT 

870 PRINT "PRESS (ENTER) TO CONTINUE." 
880 LET F=0 
890 INPUT R* 
900 GOTO 130 

999 REM *** THROW A ROCK *** 
1000 LET M=M-1 
1010 IF M<1 THEN GOTO 4000 



106 



10 AWESOME PROGRAMS FROM K-POWER 



1020 
1030 
1999 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
3999 
4000 
4010 
4020 
4030 
4040 
4999 
5000 
5010 
5020 
5030 
5040 



"1) 

HON 



LEFT" 

RIGHT" 

STRAIGHT' 



LET F=0 
GOTO 140 

REM «** CHOOSE DIRECTION *** 
PRINT "THEN PRESS THE (ENTER) 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "WHICH WAY?" 
INPUT W 

IF W<1 OR W>3 THEN 
IF W<1 OR W>3 THEN 
RETURN 

REM **♦ LOSE *** 
CLS 

PRINT "THE MONSTER 
PRINT "COULD USE A 



KEY. " 



PRINT "1,; 
GOTO 2060 



OR 



PLEASE. 



EATS YOU AND SAYS, 
BIT MORE SALT. " 



PRINT "YOU LOSE, FOR SURE. 

GOTO 5040 

REM *** WIN **» 

CLS 

FDR T=l TO 46 

PRINT " YOU MADE IT"; 

NEXT T 

REM *♦* END #** 



TRS-80 Color Computer 

1 REM ♦*♦ THE MONSTER 
10 S=15 
£iZl M=15 
30 R=£4 
40 CLS 

50 PRINT TftBO) 
60 
70 

80 PRINT TflB<4) 
90 fl*=INKEY* 

IF ft*="" THEN GOTO 90 
REM **♦ MAIN LOOP 
X=RND(3) 
CLS 

IF R<1 THEN FL=i 
PRINT "YOU ARE"S"STEP(S) " 

"FROM THE MftRSH'S END 



IN THE MfiRSH TRS-80 COLOR *** 



PRINT TAB (8) 
PRINT 



"THE MONSTER" 
"IN THE MfiRSHi " 

"PRESS ANY KEY TO BEGIN' 



100 

109 
110 
1£0 
130 
140 
150 
160 
170 
180 
190 

£00 

£10 



"YOU HAVE "R" ROCK (S) " 
"IN YOUR POCKET" 

"THE MONSTER IS"M 
"STEP<S) BEHIND YOU" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
££0 PRINT 

£30 PRINT "PRESS ANY KEY TO 
£40 A*=INKEY* 

£50 IF A*="" THEN GOTO £40 
£60 CLS 

£70 PRINT "YOUR CHOICES ARE 
£80 PRINT 

£90 PRINT "1) TAKE A STEP" 



:ONTINUE 
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10 AWESOME PROGRAMS FROM K-POWER 



300 PRINT "£) STAY WHERE YOU ORE" 

310 IF FL=0 THEN PRINT "3) TOSS ft ROCK" 

320 PRINT 

330 PRINT "TYPE ft NUMBER" 
340 PRINT "THEN PRESS (ENTER)" 
350 PRINT "WHAT IS YOUR CHOICE"; 
360 INPUT CH 

370 IF FL=1 fiND CH> £ THEN 330 
380 IF CH<1 OR CH>3 THEN GOTO £60 
390 ON CH GOTO 700, 1000, 400 

399 REM CHUCK THE ROCK *** 

400 CLS 

410 PRINT "TYPE THE NUMBER" 
4£0 PRINT "OF THE DIRECTION" 
430 PRINT "YOU WANT TO" 
440 PRINT "THROW THE ROCK" 
450 PRINT 
460 GOSUB £000 
470 FL=1 
480 CLS 

490 IF XOW THEN PRINT "SPLASH!" 
500 IF X=W THEN PRINT "THUD" 
510 R=R-1 

5£0 IF M<1 THEN 4000 
530 PRINT 

540 PRINT "PRESS ANY KEY TO CONTINUE" 

550 A*=INKEY* 

560 IF A*="" THEN 550 

570 GOTO i£a 

699 REM *** TAKE A STEP ROUTINE *** 

700 CLS 

710 PRINT "PRESS THE NUMBER" 

7£0 PRINT "OF THE DIRECTION" 

730 PRINT "YOU WANT TO STEP IN, ": PRINT 

740 GOSUB £000 

750 CLS!Z=RND(4) 

760 IF WOX THEN PRINT "SPLASH YOU'RE SINKING!" 

780 IF WOX AND Z=l THEN M=M-1: PRINT "BUT, YOU PULL YOURSELF OUT!" 

790 IF WOX AND ZOi THEN PRINT "YOU uOSE!"sEND 

800 IF W=X THEN S=S-1: PRINT "YOU STEPPED SAFELY!" 

810 IF M<i THEN 4000 

a£0 IF S<1 THEN 5000 

830 PRINT 

840 FL=0 

850 PRINT "PRESS ANY KEY TO CONTINUE" 

860 A*=INKEY* 

870 IF A*="" THEN 860 

880 GOTO 110 

999 REM *«* STAY WHERE YOU ARE #** 

1000 M=M-1 

1010 IF M<1 THEN 4000 

10£0 FL=0 

1030 GOTO 110 

£000 PRINT "THEN PRESS" 

£010 PRINT "THE (EMTER) KEY. " 

£0£0 PRINT 

£030 PRINT "D LEFT" 

£040 PRINT "£) RIGHT" 

£050 PRINT "3) STRAIGHT AHEAD" 
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10 AWESOME PROGRAMS FROM K-POWER 



2060 PRINT 

2070 PRINT "WHICH WfiY"; 
2080 INPUT U 

£090 IF W<1 OR W>3 THEN PRINT "1,2 OR 3 PLEASE !": GOTO 2070 
2100 RETURN 

3999 REM *** SORRY CHARLIE *** 

4000 CLS 

4010 PRINT "THE MONSTER EATS YOU AND SAYS, " 
4020 PRINT "'GOULD USE A BIT MORE SALT!" 
4030 PRINT "YOU LOSE, FOR SURE. " :END 

4999 REM *** YOU'RE IN LUCK *** 

5000 CLS 

5010 FOR T=l TO 200 

5020 PRINT" YOU MADE IT!!! 

5030 NEXT T 

5040 END 

TRS-80 Model III and Model 4 

1 REM **» THE MONSTER IN THE MARSH TRS-80 MODELS 3 AND 4 «*♦ 
10 S=15 
20 M=15 
30 R=24 
40 CLS 

50 PRINT TAB (32) "THE MONSTER" 
60 PRINT TAB (31) "IN THE MARSH!" 
70 PRINT 

80 PRINT TAB (26) "PRESS ANY KEY TO BE6IN" 
90 A*=INKEY* 

100 IF A*="" THEN GOTO 90 

109 REM *** MAIN LOOP *** 

110 X=RND(3) 
120 CLS 

130 IF R<1 THEN FL=1 
140 PRINT "YOU ARE"S"STEP(S) " 
150 PRINT "FROM THE MARSH'S END" 
160 PRINT 

170 PRINT "YOU HAVE"R"ROCK(S) " 
180 PRINT "IN YOUR POCKET" 
190 PRINT 

200 PRINT "THE MONSTER IS"M 
210 PRINT "STEP(S) BEHIND YOU" 
220 PRINT 

230 PRINT "PRESS ANY KEY TO CONTINUE" 
240 A*=INKEY* 

250 IF A«="" THEN GOTO 240 
260 CLS 

270 PRINT "YOUR CHOICES ARE:" 
280 PRINT 

290 PRINT "D TAKE A STEP" 

300 PRINT "2) STAY WHERE YOU ARE" 

310 IF FL=0 THEN PRINT "3) TOSS A ROCK" 

320 PRINT . 

330 PRINT "TYPE A NUMBER" 
340 PRINT "THEN PRESS (ENTER) 
350 PRINT "WHAT IS YOUR CHOICE" 
360 INPUT CH 

370 IF FL=1 AND CH>2 THEN 330 
380 IF CH<1 OR CH>3 THEN 260 
390 ON CH GOTO 580,770,400 
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10 AWESOME PROGRAMS FROM K-POWER 



400 CLS 

410 PRINT "TYPE THE NUMBER" 
420 PRINT "OF THE DIRECTION" 
430 PRINT "YOU WANT TO" 
440 PRINT "THROW THE ROCK" 
450 PRINT 
460 60SUB 810 
470 FL=1 
480 CLS 

490 IF XOW THEN PRINT "SPLASH!" 
500 IF X=W THEN PRINT "THUD" 

510 R=R-1 

520 IF M<1 THEN 920 
530 PRINT 

540 PRINT "PRESS ANY KEY TO CONTINUE" 
550 A*=INKEY* 

560 IF A*="" THEN 550 ■ 
570 GOTO 120 

579 REM *#» TAKE A STEP ROUTINE 

580 CLS 

590 PRINT "PRESS THE NUMBER" 

600 PRINT "OF THE DIRECTION" 

610 PRINT "YOU WANT TO STEP IN,": PRINT 

620 GOSUB 810 

630 CLS 

640 Z=RND(4) 

650 IF WOX THEN PRINT "SPLASH YOU'RE SINKING!" 

660 IF WOX AND Z=l THEN M=M-l: PRINT "BUT, YOU PULL YOURSELF OUT!" 

670 IF WOX AND ZO l THEN PRINT "YOU LOSE !": END 

680 IF W=X THEN S=S-1: PRINT "YOU STEPPED SAFELY!" 

690 IF M<1 THEN 920 

700 IF S<1 THEN 960 

710 PRINT 

720 FL=0 

730 PRINT "PRESS ANY KEY TO CONTINUE" 

740 A*=INKEY* 

750 IF A*="" THEN 740 

760 GOTO 110 

769 REM «** STAY WHERE YOU ARE 

770 M=M-1 

780 IF M<1 THEN 920 

790 FL=0 

800 GOTO 110 

810 PRINT "THEN PRESS" 

820 PRINT "THE (ENTER) KEY." 

830 PRINT 

840 PRINT "1) LEFT" 

850 PRINT "2) RIGHT" 

860 PRINT "3) STRAIGHT AHEAD" 

870 PRINT 

880 PRINT "WHICH WAY" 
890 INPUT W 

900 IF W<1 OR W>3 THEN PRINT "1,2 OR 3 PLEASE !": GOTO 880 
910 RETURN 

919 REM *** SORRY CHARLIE **♦ 

920 CLS 

930 PRINT "THE MONSTER EATS YOU AND SAYS," 
940 PRINT "'COULD USE A BIT MORE SALT!" 
950 PRINT "YOU LOSE, FOR SURE.": END 
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10 AWESOME PROGRAMS FROM K-POWER 



959 REM «** YOU'RE IN LUCK ♦«♦ 

960 CLS 

970 FOR T=l TO 200 

980 PRINT " YOU MADE IT!!! "5 

990 NEXT T 

1000 END 

VIC-20 

i REM THE MONSTER IN THE MARSH VIC-20 *♦« 

10 S=15 
30 M=15 
30 R=£4 

40 PRINT CHR*(147) 
50 PRINT TAB (5) "THE MONSTER" 
60 PRINT TflB<4)"IN THE MARSH" 
70 PRINT 

80 PRINT "PRESS (SHIFT) TO BEGIN" 
90 GOSUB 3000 

99 REM *♦* MAIN LOOP *** 

100 X=INT(RND<1)*3)+1 
il0 PRINT CHR*(147) 
1£0 IF R<1 THEN FL=1 

130 PRINT "YOU ARE"S"STEP(S) " 
140 PRINT "FROM THE MARSH'S END" 
150 PRINT 

160 PRINT "YOU HAVE"R"ROCK<S) " 
170 PRINT "IN YOUR POCKET" 
180 PRINT 

190 PRINT "THE MONSTER IS"M 
£00 PRINT "STEP(S) BEHIND YOU" 
210 PRINT 

££0 PRINT "YOUR CHOICES ARE:" 
£30 PRINT 

£40 PRINT "1) TAKE A STEP" 

£50 PRINT "£) STAY WHERE YOU ARE" 

£60 IF FL=0 THEN PR INT "3) TOSS A ROCK" 

£70 PRINT 

£80 PRINT "TYPE A NUMBER" 

£90 PRINT "THEN PRESS (RETURN)" 

300 INPUT "WHAT IS YOUR CHOICE" ;CH 

310 IF FL=1 AND CH) £ THEN £80 

3£0 IF CH(1 OR CH>3 THEN PRINT s GOTO ££0 

330 ON CH GOTO 700,1000,340 

339 REM TOSS A ROCK ROUTINE *** 

340 PRINT CHR*(147) 

350 PRINT "TYPE THE NUMBER" 

360 PRINT "OF THE DIRECTION" 

370 PRINT "YOU WANT TO" 

380 PRINT "TOSS THE ROCK, " 

390 PRINT 

400 GOSUB £000 

410 FL=1 

4£0 PRINT CHR*(147) 
430 IF XOW THEN PRINT "SPLASH!" 
440 IF X=W THEN PRINT "THUD!" 
450 R=R-1 

460 IF M<1 THEN 4000 
470 PRINT 

480 PRINT "PRESS (SHIFT)" 
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10 AWESOME PROGRAMS FROM K-POWER 



490 PRINT "TO CONTINUE. " 
500 GOSUB 3000 
510 GOTO 110 

693 REM *♦* TAKE ft STEP ROUTINE »** 

700 PRINT CHR*(i47) 

710 PRINT "PRESS THE NUMBER" 

720 PRINT "OF THE DIRECTION" 

730 PRINT "YOU WANT TO STEP IN, " 

740 GOSUB £000 

750 PRINT CHR*(147) 

7&0 IF WOX THEN PRINT "SPLftSH YOU'RE SINKING!" 

780 IF WOX AND Z=l ' THEN M=M-is PRINT "BUT, YOU PULL YOURSELF OUT!" 

790 IF WOX ftND ZOi THEN PRINT "YOU LOSE!"sEND 

800 IF W=X THEN S=S-ls PRINT "YOU STEPPED SftFELY ! " 

810 IF M<i THEN 4000 

820 IF S<1 THEN 5000 

830 PRINT 

840 PRINT "PRESS (SHIFT)" 

850 PRINT "TO CONTINUE. " 

860 FL=0 

870 GOSUB 3000 

890 GOTO 100 

999 REM *** STAY WHERE YOU ARE *** 

1000 M=M-1 

1010 IF M<1 THEN 4000 

1020 FL=0 • - 

1030 GOTO 100 

1999 REM **♦ CHOOSE DIRECTION *#* 

2000 PRINT "THEN PRESS" 

2010 PRINT "THE (RETURN) KEY. '= 

£020 PRINT 

£030 PRINT "1) LEFT" 

£040 PRINT "£) RIGHT" 

£050 PRINT "3) STRAIGHT AHEAD" 

£060 PRINT 

£070 INPUT '■WHICH WAY";W 

£080 IF W<1 OR W>3 THEN PRINT s GOTO £070 
£090 Z=INT(RND(1)*4)+1 
£100 RETURN 

£999 REM *** WAIT ROUTINE **# 
3000 WAIT 653,1 
3010 WAIT 653, 1, 1 
3020 RETURN 

3999 REM ♦** LOSE *** 

4000 PRINT CHR*( 147) 

4010 PRINT ^'THE MONSTER EATS YOU AND SAYS, " 
4020 PRINT "'COULD USE A BIT MORE SALT!'" 
4030 PRINT "YOU LOSE, FOR SURE. "jEND 

4999 REM *** WIN *** 

5000 PRINT CHR*(i47) 
5010 FOR T=l TG £00 

5020 PRINT " YOU MADE IT i ! ! '• : 
5030 N£XT T 
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10 AN^SOME PROGRAMS FROM K-PGWER 



BONUS PROGRAM #8 

TEAM BATTIKG AVERAGE 

The TEAM BATTINB AVEF^AGE program can kesp track af your 
baseball team's batting average^ The program will ask -for 
each team member's name, total at bats, walks, and 
B^ariiiceB, and total hits« Using these figures, the 
computer will display each team member's batting average, 
and the team average. The program also can be used to 
fallow the averages of your favorite professional players 
and teams each day of the season- 



ADAM 

1 REM *** TEAM BATTING AVERAGE ADAM *** 
1 HOME 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 
30 PRINT 

40 PRINT "Press (RETURN) after each reply." 
50 PRINT 

60 INPUT "How many playerp: "; p 

79 REM *** dimension arrays *** 

80 DIM p$(p), alD(p), ws(p), h(p) 

89 REM *** input variables *** 

90 HOME 

100 PRINT "Please answer the questions." 
110 PRINT "Press (RETUKO after each reply." 
120 PRINT 

130 FOR t = 1 TO p 

140 PRINT "What is player #"; t; "'s name" 
150 INPUT p$(t) 

160 PRINT "What were "; p$(t); "'s total at bats" 
170 INPUT ab(t) 

180 PRINT "How many walks and sacrifices" 

190 INPUT ws(t) 

200 PRINT "How many hits" 

210 INPUT h(t) 

220 IP h(t)+ws(t) > ab(t) THEN PRINT "Number too high": GOTO 160 
230 HOME 
240 NEXT t 

250 PRINT "AVERAGE", "PLAYER" 
260 PRINT 

269 REM *** figure averages *** 

270 FOR t = 1 TO p 

280 b = h(t)/(ab(t)-ws(t)) 

289 REM *** round off to three digits *** 

290 a = INT(b*1000+.5)/lOO 
300 ta = ta+ab("t) 

310 th = th+h(t) 
320 tw = tw+ws( t) 

329 REM *** print averages *** 

330 PRINT a, p$(t) 
340 NEXT t 

350 PRINT 

360 tv = th/(ta-tw) 



113 



10 AWESOME PROGRAMS FROM K-POWER 



370 


PRINT "TEAM AVERAGE="; INT( tv*1000-f-.5)/1000 




380 


PRINT 






rniiNi rress any Key to run again." 




400 


GET n$ 




410 


RUN 




Apple II and Apple He 




1 REM TEAM BATTING AVERAGE APPLE 




10 


HOME 




20 


PRINT "Team batting averarp PRnRRi^M" 




30 


PRINT 


* 


40 


PRINT "PRESS (RETURN) APTER EACH REPl Y " 




50 


PRINT 




60 


INPUT "HOW MANY PLAYERS: " 5 P 




79 


REM DIMENSION ARRAYS 




80 


DIM P:^ (P) ,AB(P) ,WS(P) ,H(P) 




89 


REM INPUT VARIABLES 




90 


HOME 




1 00 


PRINT "PLEASE ANSWER THE QUESTIONS. " 




110 


PRINT "PRESS (RETURN) APTER EACH REPLY." 




120 


PRINT 




130 


POR T = 1 TO P 




140 


PRINT "WHAT IS PLAYER #"T"'S NAME" 




150 


INPUT P*(T) 




160 


PRINT "WHAT WERE "P4*(T)"'S TOTAL AT BATS" 




170 


INPUT AB(T) 




180 


PRINT "HOW MANY WALKS AND SACRIFICES" 




190 


INPUT WS(T) 




200 


PRINT "HOW MANY HITS" 




210 


INPUT H(T) 




220 


IF H(T) WS(T') > AB<T) THEN PRINT "NUMBER 


TOO HIGH"; GOTO 160 


230 


HOME 




240 


NEXT T 




250 


PRINT "AVERAGE" , "PLAYER" 




260 


PRINT 




269 


REM F"*IGURF AVERAGPc^ ^-^^ 




270 


FOR T = 1 TO P 




280 


B =n H n* ) / ^ AEJ <' T ) WS ( T ) ) 




289 


REM ROUND OFF TO THREF' DIGTTc? ^-^-^ 




290 


A - INT (B 1000 + .5) / 1000 




300 


T A = T A AB ( T ) 




310 


TH - TH + H(T) 




320 


TW -r* TW + WS(T) 




329 


REM PRINT AVERAGES 




330 


PRINT A,P*(T) 




340 


NEXT T 




350 


PRINT 




360 


TV = TH / (TA - TW) 




370 


PRINT "TEAM AVERABE=" INT (TV » 1000 + .5) / 


1 000 


380 


PRINT 




390 


PRINT "PRESS ANY KEY TO RUN AGAIN." 




400 


GET N* 




410 


RUN 




Atari 






:i. RE 
10 P 


M TEAM BAl'TING AVERAGE ATARI 
RINT CHR* ( :l.25.) 




20 P 


RINT "TEAM BATTING AVERAGE PROGRAM" 




30 PRINT 
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40 PRINT "PRESS (RETURN) AFTER EACH REPLY;" 
fJO PRINT 

60 PRINT "HOlAj MANV PLAYERS"? 
70 INPUT P • 

79 REM i^^^ DIMENSION ARRAYS 

80 DIM F>*(1200) ,AB(P) ,i^S(P) ,H(P) ,TEMPf (20) ,R:$:(1) ,S(400) 

89 REM INPUT VARIABLES -^^-^ 

90 PRINT CHR-^<125) 

100 PRINT "PRESS (RETURN) AFTER EACH REPLY" 

no PRINT 

120 FOR T^l TO P 

1 30 s ( r ) -=le:n ( Ft- > 1 

140 PRINT "WHAT S THE NAME OF" 

150 PRINT "PLAYER #";Ts 

155 P.$:(S(T) ):-'=TEMP$- 

160 INPUT TEMP:$: 

170 Pt- (S<T) ):^ rEMP$- 

180 PRINT 

190 PRINT "WHAT WERE "?TEMPt5"S" 
200 PRINT "TOTAL AT BATS"; 
210 INPUT D . 
220 AB(T)=^=D 
230 PRINT 

240 PRINT "HOW MANY WALKS" 
250 PRINT "AND SACRIFICES"? 
260 INPUT D 
270 WS(T)-:^D 
280 PRINT 

290 PRINT" "HOW MANY . HITS";; 
300 INPUT D 
310 H<T)=^I) 

320 IF WS(T) -^H(T) >AB(T) THEN PRINT g PRINT "NUMBER TO HIGH" s GOTO 230 

330 PRINT CHR* (125) 

340 NEXT T 

350 8 (T) ==LEN (Pf ) i 1 

360 PRINT " AVERAGE „ " . "PLAYER" 

370 PRINT ■ 

3 79 REM -^■^■Vr FIGURE AVERAGES 
380 FOR T'-^^l TO P 

390 B-H ( r ) / { AS ( T ) WS ( T ) ) 

399 REM '^^^ ROUND OFF TO THREE DIGITS '^-'^-^ 

400 A=^ I N r ( B-^ 1 000-^•0 „ 5 ) / 1 000 
410 TA"= I' A^-AB ( T; 

420 TH=^THH-H(T) 
430 TW^rW+WS(T) 

440 PR I NT A , P:$- ( S ( T ) , S < T -i- 1 ) 1 ) 

449 RE:M "^^"^ PRINT AVERAGES ■^■'f^-'^- 

450 NEXT T 
460 PRINT 

4 70 TV==^TH/ <TA-TW) 

480 PR I N T " TEAM AVERAGE^^^= " ; I NT ( PJ^- 1 OOO-hT „ 5 ) / 1 000 
490 PR INI 

5U0 PRINT "PRESS (RETURN) TO RUN AGAIN" 
510 INPUT 
520 RUN 

Commodore 64 

1 REM **♦ TEfiM BATTING fiVERflGE 64 
10 PRINT CNR* (147) 

20 PRINT "TEAM BftTTING QVERQGE PROGRftM" ^ . 
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30 PRINT 

40 PRINT "PRESS (RETURN) AFTER EACH REPLY. " 
50 PRINT 

60 PRINT "HOW MftNY PLfiYERS" 5 
70 INPUT P 

79 REM ♦** DIMENSION ARRAYS **♦ 

80 DIM P*(P),AB(P),WS(P),H(P) 

89 REM INPUT VARIABLES ♦*» 

90 PRINT CHR*(147) 

100 PRINT "PLEASE ANSWER THE QUESTIONS." 
110 PRINT "PRESS (RETURN) AFTER EACH REPLY." 
1£0 PRINT 
130 FOR T=l TO P 

140 PRINT "WHAT IS PLAYER #"T"'S NAME" 
150 INPUT P*(T) 

160 PRINT "WHAT WERE "P*(T)"'S TOTAL AT BATS" 
170 INPUT AB(T) 

180 PRINT "HOW MANY WALKS AND SACRIFICES" 

190 INPUT WS(T) 

£00 PRINT "HOW MANY HITS" 

210 INPUT H(T) 

£20 IF H(T)+WS(T)>AB(T) THEN PRINT"NUMBER TOO HIBH":GOTO 160 
230 PRINT CHR*(147) 
£40 NEXT T 

£50 PRINT "AVERAGE", "PLAYER" 
£60 PRINT 

£69 REM **♦ FIGURE AVERAGES ♦** 

£70 FOR T=l TO P 

£80 B=H(T)/(AB(T)-WS(T)) 

£89 REM *** ROUND OFF TO THREE DIGITS *** 
£90 A=INT(B*1000+. 5) /1000 
300 TA=TA+AB(T) 
310 TH=TH+H(T) 
320 TW=TW+WS(T) 

3£9 REM *** PRINT AVERAGES *♦* 

330 PRINT A, P*(T) 

340 NEXT T 

350 PRINT 

360 TV=TH/ (TA-TW) 

370 PRINT "TEAM AVERAGE^" INT (TV*1000+. 5) / 1000 
380 PRINT 

390 PRINT "PRESS (SHIFT) TO RUN AGAIN." 

399 REM *♦* WAIT ROUTINE **♦ 

400 WAIT 653, 1 
410 WAIT 653, 1,1 
4£0 RUN 

IBM PC 

1 REM *** TEAM BATTING AVERAGE IBM--PC #** 
10 CLS 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 
30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY. " 
50 PRINT 

60 PRINT "HOW MANY PLAYERS"? 
70 INPUT P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P*(P) ,AB(P) ,WS(P) ,H(P) 
89 REM *** INPUT VARIABLES *** 
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90 CLS 

100 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

110 PRINT 

120 FOR T=l TO P 

13(3 PRINT "WHAT IS THE NAME OF" 
140 PRINT "PLAYER 
150 INPUT P*(T> 
160 PRINT 

170 PRINT "WHAT WERE ";P*(T)5"'S" 
180 PRINT "TOTAL AT BATS"; 
190 INPUT AB(T) 
200 PRINT 

210 PRINT "HOW MANY WALKS" 
220 PRINT "AND SACRIFICES"? 
230 INPUT WS(T) 
240 PRINT 

250 PRINT "HOW MANY HITS"? 
260 INPUT H(T) 

270 IF H(T)+WS<T) >AB(T) THEN PRINT "NUMBER TOO HieH"5B0T0 170 
280 CLS 
290 NEXT T 

300 PRINT "AVERAGE" , "PLAYERS" 
310 PRINT 

319 REM *** FIGURE AVERAGES *** 

320 FOR T=l TO P 

330 B=H<T)/(AB<T)-WS<T)) 
340 A=INT (B*1000+.5) /1000 
350 TA=TA+AB<T) 
360 TH=TH+H(T) 
370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES *** 

380 PRINT A,P*<T> 
390 NEXT T 

400 PRINT 

410 TV=TH/ (TA-TW) 

420 PRINT "TEAM AVERAGE^" ; INT <TV*1000+. 5) / 1000 
430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN" 

449 REM *** WAIT ROUTINE *** 

450 INPUT R* 
460 RUN 

TI-99/4A 

1 REM lEAM BfiTIINe AVELRA6E TI99/4A 

10 CALL CLEAR 

■20 PRINT "TEAM BArLfNe AVERAGE PROGRAM" 
30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY. " 

50 PRINT 

60 PRINT "HOW MANY PLfWERS"; 
70 INPUT P 

79 REM DIfiENSIQN ARRi'VV'S 

80 DIM Ft- ( 30 ) , AB ( 30 ) , t'iS ( 3(.i ) , H ( 30 ) 
90 CAI...L CLEAR 

100 PRINT "PLEASE ANSWER THE QUESTIONS. " 
J. 10 PRINT 

120 PRINT "PRESS (ENTER) AFTER EACH REPLY,, " 

130 PRINT 

139 REM **;•« li-IPUr VARIABLES 



117 



10 AWESOME PROGRAMS FROM K-POWER 

140 FOR T=l TO P 

150 PRINT "WHAT IS NAME OF" 

160 PRINT "PLAYER #";T5 

170 INPUT P$(T) 

ISO PRINT 

1 90 PR INI " WHAT WERE " 3 P* < T ) 3 " ' S " 

200 PRINT "TOTAL AT BATS"; 

210 INPUT AB(T) 

220 PRINT 

230 PRINT' "HOW MANY WALKS" 

240 PRINT "AND SACRIFICES"; 

250 INPUT WS(T.) 

260 PRINT 

270 PRINT "HOW MANY HITS"; 

280 INPUT H<Tj 

290 IF H(T> +WS C r> J-ABCT) THEN 300 ELSE 330 

300 PRINT 

310 PRINT "NUMBER TO HKSH" 

320 eOTO 220 

330 CALL CLEAR 

340 NEXT T 

350 CALL CLEAR 

360 PRINT "PLAYER" , "AVERAGE, " 

370 PRINT 

379 REM FIGURE AVERAGES •«•** 

380 FOR T=l TO p . 

390 e=H ( T ) / ( AB ( i" ) -WS (. i' ) ) 

399 REM ROUND OFF TO THREE DIGITS *** 

400 A~ I N r ( B* 1 000+ . 5 ) / 1 000 
410 TA=TA+AB<T) 

420 rH=TH+H(1) 

430 tw=tw+ws<:t> 

439 REM PRINT AVERAGES 

440 PRINT P-|:<T) ,A 
450 NEXT r 

460 PRIiTT 

470 rV~TH/ ( lA rw) 

480 PR I N I " TEAM AVERAGE^ " 5 I N T ( TV* 1 000+ . 5 ) / 1 000 
490 PRITTT 

500 PRINT "PRESS (ENTER) TO RUN REVERSE" 
510 INPUT R* 
520 GOTO 10 

Timex 1000 w/t6K RAM Pack and Timex 1500 

1 REM *** TEAM BATTING AVERAGE TIMEX ♦** 
10 CLS 

20 PRINT "TEAM BATTING AVERAGE PR06RAM" 
30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 
50 PRINT 

60 PRINT "HOW MANY PLAYERS?"; 
70 INPUT P 

79 REM *** DIMENSION ARRAYS *«* 

80 DIM P*(P, 15) 
90 DIM B(P) 

100 DIM W(P) 
110 DIM H(P) 

119 REM *** INPUT VARIABLES 

120 CLS 
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130 PRINT "PLEASE ANSWER THE QUESTIONS." 
140 PRINT "PRESS (ENTER) AFTER EACH REPLY. " 
150 PRINT 
160 FOR T=l TO P 

170 PRINT "WHAT IS THE NAME OF" 
180 PRINT "PLAYER NUMBER "5T;"?" 
190 INPUT P*(T) 
200 PRINT 

210 PRINT "WHAT WERE THE TOTAL" 
220 PRINT "AT BATS FOR ";P*(T);"?" 
230 INPUT B(T) 
240 PRINT 

250 PRINT "HOW MANY WALKS AND SACRIFICES?" 
260 INPUT W(T) 
270 PRINT 

280 PRINT "HOW MANY HITS?" 
' 290 INPUT H(T) 

300 IF H(T)+W(T) >B(T) THEN GOTO 240 
310 CLS 
320 NEXT T 

330 PRINT "AVERAGE", "PLAYER" 

340 PRINT 

350 LET Q=0 

360 LET Y=0 

370 LET U=0 

380 LET V=0 

390 LET A=0 

399 REM *** FIGURE AVERAGES *** 

400 FOR T=l TO P 

410 LET 6=H<T)/(B<T)-W(T)) 

419 REM *** ROUND OFF TO THREE DIGITS **» 

420 LET A=INT (G«1000+. 5) / 1000 
430 LET Q=Q+B(T) • 

440 LET Y=Y+H(T) 
450 LET U=U+W<T) 

459 REM *** PRINT AVERAGES **« 

460 PRINT A,P*(T) 
470 NEXT T 

480 PRINT 

490 LET V==Y/(Q-U) 

500 PRINT " TE AM A VER AGE= " 5 I NT ( V* 1 000+ . 5 ) / 1 000 
510 PRINT 

520 PRINT "PRESS (ENTER) TO RUN AGAIN. " 
530 INPUT C* 
540 RUN 

TRS-80 Color Computer 

1 REM TEPiM BftTTIixiB flVERfiGE TRS-CQLQR *** 

10 CLS 

£0 PRINT "TEAM BflTTINS AVERAGE PROGRAM'^ 
30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 
50 PRINT 

60 PRINT "HOW MANY PLAYERS"; 
70 INPUT P 

73 REM *** DIMENSION ARRAYS *** 
80 DIM P*(P), AB(P),WS(P),H(P) 

89 REM *** INPUT VARIABLES »** 

90 CLS 
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100 PRINT "PRESS (ENTER) AFTER EfiCH REPLY. " 

110 PRINT 

120 FOR T=l TO P 

130 PRINT "WHfiT IS THE NAME OF" 
140 PRINT "PLAYER #";T5 
150 INPUT P*(T) 
160 PRINT 

170 PRINT "WHAT WERE ";P*(T);"'S" 
180 PRINT "TOTAL AT BATS"; 
190 INPUT AB<T) 
200 PRINT 

£10 PRINT "HOW MANY WALKS" 
220 PRINT "AND SACRIFICES"; 
230 INPUT WS(T) 
240 PRINT 

£50 PRINT "HOW MANY HITS"; 
260 INPUT H<T) ' 

£70 IF H(T)+WS<T) > AB<T) THEN PRINT "NUMBER TOO HISH":GOTO 170 
280 CLS 
290 NEXT T 

300 PRINT "AVERABE", "PLAYERS" 
310 PRINT 

319 REM «♦♦ FIGURE AVERf)GES *** 

320 FOR T = 1 TO P 

330 B=H(T)/(AB<T)-WS<T)) 

339 REM *** ROUND OFF TO THREE DIBITS ♦** 

340 A==INT(B*1000+. 5) 71000 
350 TA=TA+AB<T) 

360 TH=TH+H(T) 
370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES **♦ 

380 PRINT A, P$<T) 
390 NEXT T 

400 PRINT 

410 TV=TH/(TA-TW) 

420 PRINT "TEAM AVERAGE=" ; INT (TV*1000+. 5) / 1 000 
430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN" 

449 REM *** WAIT ROUTINE *♦* 

450 INPUT R$ 
460 RUN 

TRS-80 Model III and Model 4 

1 REM *** TEAM BATTING AVERAGE TRS-80 MODELS 3 AND 4 *** 
10 CLS 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 
30 PRINT > 
40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 
50 PRINT 

60 PRINT "HOW MANY PLAYERS"; 
70 INPUT P 

79 REM *#* DIMENSION ARRAYS **# 

80 DIM P*(P) , AB(P) , WS(P) ,H(P) 

89 REM *** INPUT VARIABLES *** 

90 CLS 

100 PRINT "PRESS (ENTER) AFTER EACH REPLY. " 

110 PRINT 

120 FOR T=l TO P 

130 PRINT "WHAT IS THE NAME OF PLAYER #";T; 
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150 INPUT P*(T) 
160 PRINT 

170 PRINT "WHAT WERE ";P*(T);"'S TOTAL AT BATS "5 
190 INPUT AB(T) 
200 PRINT 

210 PRINT "HOW MANY WALKS AND SACRIFICES"; 
230 INPUT WS(T) 
240 PRINT 

250 PRINT "HOW MANY HITS"; 
260 INPUT H(T) 

270 IF H<T)+WS(T) >AB(T) THEN PRINT "NUMBER TOO HIGH":eOTO 170 
280 CLS 
290 NEXT T 

300 PRINT "AVERAGE", "PLAYER" 
310 PRINT 

319 REM *** FIGURE AVERAGES **** 

320 FOR T=l TO P 

330 B=H(T)/(AB(T)-WS(T)) 

339 REM «♦* ROUND OFF TO THREE PLACES »«# 

340 A=INT(B*1000+.5)/1000 
350 TA=TA+AB(T) 

360 TH=TH+H(T> 
370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES 

380 PRINT A,P*(T) 
390 NEXT T 

400 PRINT 

410 TV=TH/ (TA-TW) 

420 PR I NT " TEAM A VER AGE= " ; I NT ( TV* 1 000+ . 5 ) / 1 000 
430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN"; 

449 REM *♦* WAIT ROUTINE 

450 INPUT R* 
460 RUN 

VIC-20 

1 REM ♦** TEAM BATTING RVG. VIC-20 #♦* 

10 PRINT CHR*(1A7) 

28 PRINT "TEAM BATTING" 

30 PRINT "AVERAGE PROGRAM" 

40 PRINT 

50 PRINT "PRESS (RETURN) AFTER EACH REPLY. " 
60 PRINT 

70 PRINT "HOW MANY PLAYERS"; 
80 INPUT P 

83 REM **♦ DIMENSION ARRAYS *** 
90 DIM P*(P), AB(P),WS(P),H(P) 

99 REM **♦ INPUT VARIABLES *** 

100 PRINT CHR*<147) 

110 PRINT" PLEASE ANSWER" 
120 PRINT"THE QUESTION" 
130 PRINT 

140 PRINT"PRESS (RETURN) AFTER EACH REPLY." 

150 PRINT 

160 FOR T=l TO P 

170 PRINT"WHAT'S THE NAME OF" 

180 PRiNT"PLAYER #"T 

190 INPUT P*"(T) 

£00 PRINT 
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ai0 PRINT"WHflT WERE "P*(T)"'S" 
220 PR I NT "TOTAL fiT BfiTS" 
230 INPUT ftB(T) 
240 PRINT 

250 PRINT "HOW MANY WALKS" 
2S0 PRINT "AND SACRIFICES" 
270 INPUT WS(T) 
280 PRINT 

290 PRINT "HOW MANY HITS" 
300 INPUT H(T) 

310 IF H<T)+WS(T) > AB(T) THEN PRINT"NUMBER TOO HIGH":SOTO 210 
320 PRINT CHR*(147) 
330 NEXT T 

340 PRINT "AVERAGE PLAYER" 
350 PRINT 

359 REM **♦ FIGURE AVERAGES 

360 FOR T=l TO P 

370 B=H(T)/(AB(T)-WS(T)) 

379 REM *♦* ROUND OFF TO THREE DIGITS **♦ 

380 A=INT(B*1000+.5)/1000 
390 TA=TA+AB<T) 

400 TH=TH+H(T) 
410 TW=TW+WS(T) 

419 REM *** PRINT AVERAGES *** 

420 PRINT A, P*(T) 
430 NEXT T 

440 PRINT 

450 TV=TH/ (TA-TW) 

460 PRINT "TEAM AVERAGE=" INT (TV*1000+. 5) / 1000 
470 PRINT 

480 PRINT" PRESS (SHIFT) TO" 
490 PRINT"TO RUN AGAIN. " 

499 REM *** WAIT ROUTINE *** 

500 WAIT 653, 1 
510 WAIT 553, 1, 1 
520 RUN 
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BONUS PROGRAM #9 

THE DRAWING PROGRAM 

The sky is the limit when using THE DRAWING PROGRAM. 
Drawing on the computer is as easy as pushing the 
joystick, or pressing direction keys. On some computers 
you can change character, colors, or backgrounds. To make 
■these choices, press the key printed next to your choice 
■on the screen. EraE">e by di^ciujing- in the color of the 
background. You'll be surprised at the pictures you can 
make , wi th a 1 i 1 1 1 e pract i ce and pat i ence . 



ADAM 

1 REM *** DRAWING ADAM *** 
10 GOTO 3000 

99 REM Joystick routine *** 

100 IF J = THEN 200 
110 xi = 0: yi = 0: li = 
120 IP PDL(l) < 10 THEN yi = -1 : GOTO 140 
130 IE PDL(1) > 245 THEN yi = 1 
140 IP PDL(3) < 10 THEN xi = -1: GOTO 160 
150 IP PDL(3) > 245 THEN xi =1. 
160 kol = INT(RND(1 )*50) 
1 70 RETURN 

199 REM read keyboard routine *** 

200 xi = 0: yi = 0: li = 0: kol = 
210 GET ke$ 

220 IP ke$ = "1" THEN kol = 1 : RETURN 
230 IP ke$ = "2" THEN END 

240 IP ke$ = kt$(li) THEN yi = yt(li) : xi = xt(li) : RETURN 
250 li = li+1 : IP li < 8 THEN 240 
260 RETURN 

499 REM *** main drawing loop *** 

500 IP ro > 39 THEN ro = 
510 IP ro < THEN ro = 39 
520 IP CO ■> 39 THEN co = 
530 IP CO < THEN co = 39 

540 IP kol = 1 THEN COLOR = INT(R[JD(1 )*1 5 )+1 
550 PLOT CO, ro 
560 GOSUB 100 

570 ro = ro+yi: co = co+xi 
580 GOTO 500 

2999 REM *** introduction *** 

3000 TEXT: HOME 

3010 PRINT "Are you using a joystick?" 
3020 GET j$ 

3030 IP J$ = "Y" OR J$ = "y" THEN j = 1 : HOME: GOTO 3110 
3040 j = 
3050 HOME ■ 

3060 PRINT "The direction keys are:" 
3070 PRINT 

3080 PRINT TAB(2); "u i o" 
3090 PRINT TAB(2); "j 1" 
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■^1 no 


JTllXiM 1 Li\ij\c. ) J ill , • 










31 20 


PRIUT "Press any key to begin." 




3130 


GET n$ 




5140 


HOME: G-R: COLOR = 1 




3150 


IP j = THEN VTAB 22: PRINT "Press M 


' to change color" 




IF J = THEN PRINT "Press '2' to end" 


j\ by 


KJirl -^-A-^ initialize variables 




^ 1 f w 


"HTM '\r-\-^( n\ ■^•\-( n\ -xT^l n\ 
JJliyi KX,^\{)j XZ[ ( ) ^ Jt[j) 




1 OU 


jUK 1 — U lU f : KJjjAD J£uq)(^i; : NEXT 






J UK 1 - u lU ( : KiiAD xx(,i; : NEXT 






TPOP i — O T* n T • "DTPA'n TT-h f -1 ^ • Tvnnvm 
r Uit 1 — \J lU / : riJiliAD I rJJjiAi 






Ur U 1 U ]^ UU 




5000 


DATA ",",".",l,o,i,u, j,m 

7 7 7 7 7 7 7tJ7 




5010 


DATA 0,1 ,1 ,1 ,0,-1 ,-1 ,-1 




5020 


DATA 1,1,0,-1,-1,-1,0,1 




Apple II and Apple He 




i REM ^^-'^ DRAWING APPLE -^-y^-^- 




10 GOTO 3000 




99 F 


>:EM *** JOYSTICK ROUTINE *** 




100 


IF J THE^4 200 




iiO XI ^ OsYI ^ Oi^LI ^^"^ 




120 


IF PDL (1) < 64 THEN YI = - 1; 6QT0 1 


40 


130 


IF F'DL (1) > 192 THEN YI = 1 




140 


IF PDL CO) < 64 THEN XI =••= - 1: SOTO 2 


i U 


150 


IF PDL (0) > 192 THEN XI = Is GOTO 210 




199 


REM READ KEYBOARD ROUTINE *** 




200 X I ^ s Y I OsLI = 




210 


:E PEEK ( - 16384) 5 POKE - 16368,0 




220 


IF KE.< 128 THEN RETURN 




230 


IF KE 177 THEN KOL = KOL + i 




240 


IF KOL > 15 THEN KOL =0 




280 


IF CHRt- (KE -■• 128) = KTf (LI) THEN YI = 


Y I < L i ; E A J. = A 1 I L I / s HL 1 UFiJN 


290 L 


.1 = LI + l3 IF LI < 8 THEN 280 




300 


RETURN 




499 
500 


REM N-s* MAIN DRAWING LOOP 
IF RO > 39 THEN RO =^ 




510 


IF RO < THEN RO =39 




520 


IF CO > 39 THEN CO 




530 


IF CO < THEN CO === 39 




540 


COLOR-= KOL 




550 


PLOT CO,RO 




560 


GOSUB 100 




570 RO ^ .RO i- YIsCO ^ CD -i- XI 




580 


GOTO 500 






REM. *** INTRODUCTION #** 




3000 


TEXT s HOME 




3010 


PRINT " ARE YOU USING A JOYSTICK (Y/N)?" 


3020 


GET J$ 




3030 


IF J* = "Y" THEN J » Is HOME s GOTO 31 


60 


3040 
3050 


IF J* = "N" THEN J = 
HOME 




3060 


PRINT "THE DIRECTION KEYS AREs " 




3070 


PRINT 




3000 


PRINT TAB ( 6) "U I 0" 




3090 


PRINT TAB( 6) "J ■ L" 




3100 


PRINT TAB( 6) "M , „ " 




3110 


PRINT 
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10 AN^SOME PROGRAMS FROM K-POWER 



3120 PRINT "PRESS ANY KEY TO BE6IN DRAWING. " 

3130 GET m 

3150 HOME 

3159 REM *** INITIALIZE VARIABLES 

3160 DIM KT${7) ,XT<7) ,YT(7) 
3170 KOL = 1 

3180 FOR I = TO 7s READ KTsP ( I > s NEXT 

3190 FOR I = TO 7s READ XT(I)! NEXT 

3200 FOR I = TO 7s READ YT (I ) : NEXT 

3219 REM *** SCREEN DISPLAY *** 

3220 GR 

3230 FOR T = 1 TO 21s PRINT s NEXT T 

3240 PRINT "PRESS '1' TO CHANGE COLOR" 

3260 GOTO 500 

5000 DATA " , " , " . " , L , , I , IJ , J , M 

50 1 DATA 0,1,1, 1 , , - 1 , - 1 , - 1 

5020 DATA 1,1,0,-1,-1, - 1 ,0,1 

Atari 

1 REM »** DRAWING ATARI ' 

9 REM DIMENSION ARRAYS *** 

10 DIM R4-(l) , J$(l) , J (8) ,B(a) ,XT(8) ,YT<8) 
20 GOTO 3000 

99 REM JOYSTICK ROUTINE 

100 IF J =0. THEN 210 
110 LI=0,i YI=Os XI==0 
120 .JV==--STICK(0) ■ 

130 IF JV=J(LI) THEN YI^=-YT <LI ) s X I==XT (LI ) : GOTO 200 

140 LI=^-LH-1 

150 IF LKS THEN 130 

199 REM *** READ KEYBOARD ROUTINE *** 

200 XI=0s YI^Os LI=0 
210 K-^PEEK(764) 

220 IF •K=255 THEN RETURN 
230 IF K=--62 THEN 3170 

240 IF K=18 THEN KO=KO+ls IF K0>3 THEN K0=0 

250 IF K=B(LI) THEN VI=YT (LI ) 2 X I=--XT (Ll") : RETUFW 

260 LI=LIH- 

270 IF LKS THEN 250 

280 RETURN 

499 REM MAIN DRAWING LOOP *•«•* 

500 IF RG>19 THEN RG==0 
510 IF R0<0 THEN R0=19 
520 IF C0>39 THEN C0=0 
530 IF C0<0 THEN C0=39 
540 COLOR KO 

560 PLOT ' CO , RO 

570 GQSUB 100 

500 RO=RO+YI s CO=CO-!"X I 

590 POKE 764,255 

600 Y^^=02 XI=0i:LI==0 

610 GOTO 500. 

2999 REM *** INTRODUCTION 

3000 PRINT CHR*-(125) 

3010 PRINT "PRESS (RETURN) . AFTER YOUR ANSWER. " 
3020 PRINT 

3030 PRINT "ARE YOU USING A JOYSTICK (Y/N) " 
3040 INPUT J* 

3050 IF J$="Y" OR J*=^"YEi;S" THEN J==:li' PRINT CHRf- (125) s GOTO 3170 
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10 AWESOME PROGRAMS FROM K-POWER 



3060 
■3070 
3080 
3090 
3100 
3110 
3120 



IF J$ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"NO" OR Jf-="N" THEN J=0 
CHRf-(125) 

"THE DRAWING KEYS ARE:" 



U 
J 
M 



I 




L 



3130 PRINT 

3140 PRINT "PRESS (RETURN) TO BEGIN DRAWING. " 

3150 INPUT J* 

3160 PRINT CHRh^<125) 

3169 REM *** INITIALIZE VARIABLES *** 

3170 RESTORE 

3180 KO=23CO==19sRa:---=10 

3190 GRAPHICS 3s POKE 764 , 255;: POKE 752,2 

3199 REM *** INITIALIZE MOTION ARRAYS *** 

3200 FOR 1=0 TO 7s READ Qs J ( I ) =0; NEXT I 
3210 FOR 1=0 TO 7s READ Qs B ( I > =Qs NEXT I 
3220 FOR 1=0 TO 75 READ Qs XT a ) =Qs NEXT I 
3230 FOR 1=0 TO 7s READ Qs YT ( I ) ^Qs NEXT I. 

3239 REM SCREEN TEXT *** 

3240 PRINT '■• PRESS S TO CLEAR SCREEN" 
3250 PRINT " PRESS C TO CHANGE COLORS" 
3260 GOTO 500 

5000 DATA 1 , 1 4 , 6 , 1 1 -,7,951 3 , 5 
50 1 DATA 11,13,8.51 , , 37 , 32 ,34 
5020 DAT A 1 , O ,1,-1,1, - 1 , , 1 
5030 DATA -1,-1, - 1 , , 0,1,1, 1 

Commodore 64 

1 REM ♦*♦ DRAWING £4 **♦ 
10 GOTO 31300 

99 REM JOYSTICK ROUTINE *** 

100 IF J=0 THEN E00 
110 XI=0:YI=0:LI=0 
120 JV=PEEK(563£1) 

130 JV=15-(JVftND15) / 

140 IF JV=JS<LI) THEN YI=YT (LI ) : X I=XT (LI) : GOTO £10 

150 LI=LI+lsIF LI< 10 THEN 140 

199 REM *** REfiD KEYBOfiRD ROUTINE ♦** 

£00 XI=0:YI=0;LI=0 

£10 SET KE* 

££0 IF KEY*=""THEN RETURN 

£30 IF KE*=CHR*(133) THEN GOSUB 400 

£40 IF KE*=CHR*(134) THEN K0L=K0L+1 

£50 IF K0L>15 THEN KOL=0 

£60 IF KE*=CHR*(135) THEN B0=B0+1 

£70 IF BOMS THEN 60=1 

£80 IF KE*=CHR*(136) THEN BPl=Bfi+l 

£90 IF Bfl>15 THEN Bfl=l 

300 IF KE*=KT*(LI) THEN YI=YT (LI ): XI=XT <LI ): RETURN 
310 LI=LI + 1:IF LK8 THEN 300 
320 RETURN 

399 REM CHANGE CHfiRflCTER *** 

400 CH=CH+1 

410 IF CH=i28 THEN CH=£7 
4£0 IF CH=161 THEN CH=33 
430 IF CH=3£ THEN CH=160 
440 RETURN 
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. 10 AWESOME PROGRAMS FROM K-POWER 

499 REM **« MAIN DRfiWINS LOOP ♦«* 

500 IF R0>S1 THEN RO=0 
510 IF RO<0 THEN RO=ai 
520 IF C0>39 THEN CO=0 
530 IF CQ<0 THEN C0=39 

540 POKE 53260, BO: POKE 53281, 

550 POKE CB+CO+40*RO, KOL 

560 POKE SB+CO+40*RO, CH 

570 eOSUB 100 

580 RO=RO+YI:CO=CO+XI 

590 GOTO 500 

2999 REM *** INTRODUCTION 

3000 PRINT CHR*<147) 

3010 PRINT " ARE YOU USING fl JOYSTICK (Y/N)?" 
3020 GET J*: IF J*=""THEN 3020 

3030 IF J*="Y" THEN J=1:PRINT CHR* ( 147) s GOTO 3160 
3040 IF J*="N" THEN J=0 
3050 PRINT CHR* < 147) 

3060 PRINT "THE DIRECTION KEYS ARE:" 
3070 PRINT 

3080 PRINT TftB(6)"U J 0" 
3090 PRINT TfiB(6)"J L" 
3100 PRINT TfiB(6)"M , ." 
3110 PRINT 

3120 PRINT "PRESS (SHIFT) TO BEGIN DRAWING." 
3130 WAIT 653, 1 
3140 WAIT 653, i, 1 
3150 PRINT CHR* (147) 

3159 REM *** INITIALIZE VARIABLES *** 

3160 SB=10£4s 06=55296 :C0=i9:RQ= 10 
3170 BA=12:B0=9! CH=160: POKE 650, 128 
3180 FOR 1=0 TO 7:READ KT*(I) :NEXT 
3190 FOR 1=0 TO 7sREAD XT(I)!NEXT 
3200 FOR 1=0 TO 7:READ YT(I):NEXT 
3210 FOR 1=0 TO 7:READ JS(I)!NEXT 

3219 REM **♦ LE SCREEN DISPLAY *♦* 

3220 PRINT CHR* (19) CHR* (144) 
3230 FOR T=l TO 21 : PRINT :NEXT T 

3240 PRINT "Fl CHARACTER F3 CHARACTER COLOR" 

3250 PRINT "F5 BORDER COLOR F7 BACKGROUND COLOR" 
3260 GOTO 500 

5000 DATA ", ", ". ",L, 0, I,U, J,M 
5010 DATA 0,1,1,1,0, -1,-1,-1 
5020 DATA 1, 1,0, -1,-1,-1, 0„i 
5030 DATA 2,10,8,9,1,5,4,6 

IBM PC 

R:E.T'1 *** DR''H'.!IN(3 PROGiRAM IBM PC *** 

20' REri D .( MENS .1. QM CODE ARRAVSS *** 

30 KEY OFF ; 

40 GOTO ZOO 

50 t... .[ "'■..> ?. X 1 ~-0 s Y .[ -"O 

6';) KE*=-=INI<EY:$: 

70 .i:f ke*="" then return 

80 IF i<E:$=="S" THEN CLSsiSOTO 470 
90 IF 1<E4~"C" THEN GOSUB 140 

100 IF l<E*~=l<T-$: (LI ) THEN YI=YT (LI ) : X I-XT (LI) 3 RETURN ■ ■ 

1 1 L. I L. I + ;!. s 1 F L I < a THEN .1. 00 
1.20 RETURN 



10 ANtTESOME PROGRAMS FROM K-POWER 



130 REM CHANBE CHARACTER **# 

140 CH=CH+1 

150 IF CH>223 THEN CH=169 
160 IF CH==171 THEN CH=32 
170 IF CH=33 THEN CH=173 
180 RETURN 

190 F5EM *■»■* MAIN DRAWING LOOP 

200 IF R0>23 THEN Ra=l 

210 IF R0<1 THEN R0=23 

220 IF Cn< 1 THEN C0=79 

230 IF C0>79 THEN C0==^1 

240 LOCATE RO,;CO,0 

250 PRINT CHR:*(CH)5 

260 80SUB 50 

270 RO=RO-!-Yl£CO^~-COv!-XI 

280 GOTO 200 

290 REM *•»* INTRODUCTION *** 
300 SCREEN 0,0,0i WIDTH 80 
310 CLS 

320 PRINT "THE DRAWING KEYS AREs " 
330 PRINT 

340 PRINT TAB (8) 5 "U 10" 
350 PRINT TAB (8)5 "J L" 
360 PRINT TAB(8);"M , 
370 PRINT 

380 PRINT "PRESS < ENTER > TO BEGIN." 
390 R$= I NKEYsr 1 I F R:f < >CHR* (13) THEN 390 
400 CLS 

4 1 CH"2 1 9 E C0---40 -: RO-- 1 2 

420 REM *x-!<- INITIALIZE DIRECTION ARRAYS 
430 FOR T-0 TO 7 s READ KTt (I ) s NEXT I 
440 FOR 1=0 TO 7: READ XT(I):NEXT I 
450 FOR 1=0 TO 7: READ YT CDs NEXT I 
460 REM SCREEN DISPLAY 

470 LOCATE 24,27 

480 PRINT "PRESS C TO CHANGE CHARACTER"? 
490 LOCATE 25 27 

500 PRINT "PRESS S TO CLEAR SCREEN"; 
510 GOTO 200 

1 000 DATA " , " , " . " ^ L , , I , !J , J , M 
1 1 DATA ,1,1,1, , - 1 , - 1 .., - 1 
1 020 DATA 1 , 1 , , - 1 , ■- 1 , -i , , 1 

TI-99/4A 

1 REM DRAWING TI99/4A *** 

10 GOTO 540 

19 REM *** JOYSTICK ROUTINE *** 

20 IF J=0 THEN 140 
30 CALL J0YST<1,M,N) 
40 XI=0 

50 YI=0 
60 LI=0 

70 IF M=JI(LI)THEN 80 ELSE 120 

80 IF N=K1(LI)THEN 90 ELSE 120 

90 XI=XT(LI) 

100 .YI=XY(LI) 

110 GOTO 170 

120 LI=LH-1 

130 IF LKS THEN 70 
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10 AWESOME PROGRAMS FROM K-POWER 



140 


XI~0 




150 


YI==0 




160 


LI=0 




169 


REM *** READ KEYBOARD 




170 


CALL H::EY(3,K,P) 




180 


IF P==^0 THEN 190 ELSE 200 




190 


IF J=0 THEN 170 




200 


IF K==49 THEN 210 ELSE 250 




210 






220 


IF K0>6 THEN 230 ELSE 240 




230 






240 


CH=C ( i<0 ) 




250 


IF K>50 THEN 260 ELSE 290 




260 


s-s+i 




270 


IF S>i6 THEN 280 ELSE 290 




280 


S==3 




290 


IF K=51 THEN 990 ELSE 300 




300 


IF K>=B(LI)THEN 310 ELSE 340 




3 1 


XI ---XT (LI) 




320 


YI--=XY (LI ) 




330 


RETURN 




340 


LI^LH-1 




350 


IF J==i THEN 390 




360 


IF LK8 THEN 300 




370 


XI=0 




380 


YI==0 




390 


RETURN 




399 


REM SET DIMENSIONS "s^^^ 




400 


IF R0>20 THEN 410 ELSE 420 




4 1 


RO--^: 1 




420 


IF R0<1 THEN 430 ELSE 440 




430 


Ra-20 




440 


IF CD>32 THEN 450 ELSE 460 




450 


CO-1 




460 


IF CO<i T^-IEN 470 ELSE 480 




470 


CG=^32 




480 


CALL SCREEN (8) 




490 


CALL HCHAR ( RG , CO , CH , 1 ) 




500 


GDSUB 20 




510 


RG=--RQ^-Xl 




520 


CO==^CG-+YI. 




530 


GOTO 400 




539 


REM •M-'^'X- INTRODUCTION •^^•^•^^i- 




540 


CALL CLEAR 




550 


PRINT "TYPE YOUF^ ANSIaIER" 




560 


F-'FVINT "THEN PRESS (ENTER) " 




570 


PRINT 




580 


PRINT "ARE YOU USING A JOYSTICK";; 




590 


INPUT J:^ 




600 


1 i- SLG-ili- k J:1> ^.1^1) Y " I i-lEN 6 i U tiLbEi too-O 




610 
620 


J^^==l , 

GOTO 70O 




630 


J--0 




640 


CALL CLEAf^ 




650 


PK .1 N 1 " ! HL D 1 RLL i i ON i-..E Y b A{\'E s " 






PRINT 




/. '7 i't 






680 


PRINT TAB (8) ; "J L" 




690 


PRIIMT TAB (8) 5 "M , 
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10 AWESOME PROGRAMS FROM K-POWER 



700 PRINT 

710 PRINT "PRESS (ENTER) TO BEGIN. " 
720 INPUT P* 
730 RESTORE 

739 REM *** DEFINE CHARACTERS 

740 A-1.-="FFFFFF"FFFFFFFFFF" 
750 CALL CHAR(96,A$) 

760 CALL CHAR (104, A*) 
770 CALL CHAR ( 128, A^t) 
780 CALL CHAR (136, A*) 
790 CALL CHAR (144, A*) 
800 CALL CHAR (152, A*) 
810 CALL COLOR (9, 2, 2) 
820 CALL COLOR (10, 3, 3) 
830 CALL COLOR (13,5,5) 
840 CALL COLOR (14, 7,7) 
850 CALL COLOR (15,11,11) 
860 CALL COLOR (16,16,16) 
870 CQ=16 
880 R0=10 
890 CH-96 
900 S=3 

909 REM *->«•* LOAD JOYSTICK AND KEYBOARD 'ARRAYS *** 

910 FOR 1=0 TO 7 
920 READ XT(I) 
930 READ XY(I) 
940 READ J I ( I ) 
950 READ KI (I) 
960 READ B(I) 
970 READ C(I) 
980 NEXT I 

989 REM **■» SCREEN DISPLAY «** 

990 CALL CLEAR 

1000 PRINT "l TO CHANGE PAINT COLOR" 

1010 PRINT "2 TO CHANGE SCREEN COLOR" 

1020 PRINT "3 TO CLEAR SCREEN" 

1030 Ra=10 

1040 C0=^=16 

1050 GOTO 400 

i 060 DATA - 1 i , 4 , 73 , O 

1 070 DATA - 1 , 1 \ 4,4, 79 ', 96 

1 080 DAT' A 0,1,4, , 76 , 1 04 

1 090 DATA 1 ,1,4 , -4 , 46 , 1 23 

1 1 00 DATA 1,0, , -• 4 , 44 , i 36 

1 1 1 DATA 1 , •- 1 , "4 , ■-•4 , 77 , 1 44 

1 1 20 DATA ,-1,-4, , 74 , 1 52 

1 1 30 DATA - 1 , - 1 , -4 ,4,85, 

Timex 1000 and 1500 

1 REM *** DRAWING TIMEX »«* 
10 CLS 

20 PRINT "THE DRAWING KEYS ARE: " 
30 PRINT 

40 PRINT "5=LEFT 6=D0WN 7=UP a^RIBHT" 
50 PRINT 

60 PRINT "PRESS < ENTER > TO BEGIN. " 

70 LET K*=INKEY* 

80 IF K*="" THEN GOTO 70 

90 CLS 
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10 AWESOME PROGRAMS FROM K-POWER 



99 REM «*♦ INITIALIZE VARIABLES ««* 
100 LET R0=11 
110 LET C0«15 
120 LET CH-128 

129 REM SCREEN DISPLAY 

130 PRINT AT 20,3;"PlRESS C TO CHANGE CHARACTER" 
140 PRINT AT 21,3; "PRESS S TO CLEAR SCREEN" 

150 GOTO 500 

199 REM «»« READ KEYBOARD **♦ 

200 LET K«=»INKEY* 

210 IF K*="" THEN GOTO 200 
220 IF K*="S" THEN GOTO 90 
230 IF K*="C" THEN GOTO 400 
240 IF K*="5" THEN LET C0=C0-1 
250 IF K*="6" THEN LET R0=R0+1 
260 IF K*="7" THEN LET R0=R0-1 
270 IF K*="8" THEN LET C0=C0+1 
280 RETURN 

399 REM *** CHANGE CHARACTER «*♦ 

400 LET CH=CH+1 

410 IF CH=139 THEN LET CH=0 
420 IF CH=1 THEN LET CH=128 
430 RETURN 

499 REM **« DRAWING LOOP 

500 IF C0>31 THEN LET C0=0 
510 IF C0<0 THEN LET C0=31 
520 IF R0>19 THEN LET R0=0 
530 IF R0<0 THEN LET R0=19 
540 PRINT AT RO,CO;CHR« (CH) 
550 60SUB 200 

560 GOTO 500 

TRS-80 Color Computer 

1 REM *** DRAWING TRS-S® COLOR *** 
10 GOTO 1000 

99 REM **♦ LE JOYSTICK ROUTINE ««* 

100 H=JQYSTK(0) 
110 V=J0YSTK<1) 

120 IF H<15 THEN C0=C0-1 : RETURN 
130 IF H>45 THEN C0=C0+1 : RETURN 
140 IF V<15 THEN C0=C0-3£: RETURN 
150 IF V>45 THEN C0=^C0+3£: RETURN 

199 REM *** LE KEYBOfiRD ROUTINE *** 

200 LI=0 

210 KE*=INKEY*: IF KE*="" THEN RETURN 

220 IF KE*="C" THEN K0=K0+1 

230 IF K0>8 THEN K0=1 

240 IF .KE*="Z" THEN 60SUB 400 

£50 IF Ke*="@" THEN CLS (RND (8) -1 ) sGOTO 1180 

260 IF KE*=KT*(LI) THEN C0=C0+YT (LI ): RETURN 

270 LI=LI+1 

280 IF LI <8 THEN 260 

£90 GOTO 200 

399 REM *** CHORfiCTER CHANGE *** 

400 CH=CH+1 

410 IF CH>15 THEN CH=0 
420 RETURN 

499 REM *** MfilN DRfiWING LOOP »♦* 

500 IF C0>3S3 THEN C0=C0-3£*13 
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10 AWESOME PROGRAMS FROM K-POWER 



510 IF CO<0 THEN C0=C0+32*13 
520 SC=128+16#(K0-1)+CH 
530 PRINT@CO, CHR*(SC) I 
540 ON J GOSUB 100,200 
550 IF JO 1 THEN 580 
560 FOR D=l TO 50 
570 NEXT D 
580 GOTO 500 

999 REM #♦» INTRODUCTION *** 

1000 CLS 

1010 PRINT "ARE YOU USING ft JOYSTICK (Y/N)?" 
1020 J*=INKEY*?IF J*="" THEN 1020 
1030 IF J*="Y" THEN J=l!GOTO 1140 
1040 IF J*<> "Y" THEN J=;2 
1050 CLS 

1060 PRINT "THE DIRECTION KEYS flREs" 
1070 PRINT 

1080 PRINT "U I 0" 
1090 PRINT "J L" 
1100 PRINT "M , „ " 
1110 PRINT 

1120 PRINT "PRESS (ENTER) TO BEGIN." 
1130 INPUT R* 

1139 REM ♦#♦ INITIALIZE VflRIftBLES *** 

1140 CLS<0) 

1150 C0=239sCH=15sK0=3 

1160 FOR 1=0 TO 7sREflD KT*(I)sNEXT 

1170 FOR 1=0 TO 7sREftD YT(I):NEXT 

1179 REM ♦** SCREEN DISPLAY 

1180 PRINT@423, "C=CHflNGE COLOR"; 
1190 PRINTIM55, "Z=CHflNGE CHflRftCTER" ; 
1200 PRINT@487, "@=CLEflR SCREEN"; 
1210 GOTO 500 

£000 DATA ", ". ",L,0, I,U, J, M 

2010 DATA 32,33, 1,-31,-32,-33, -1,31 

TRS°80 Model III and Model 4 

1 REM *** DRAWING TRS-80 MODELS 3 AND 4 CASS. AND MODEL 3 DISK BASIC ** 
10 GOTO 1000 • 

199 REM *** KEYBOARD ROUTINE *** 

200 LI=0 

210 KE*=INKEY*: IF KE*="" THEN RETURN 

240 IF KE*="Z" THEN GOSUB 400 

250 IF KE*="@" THEN CLS: GOTO 1170 

260 I F KE*=KT* (L I ) THEN CD=CO+ YT (LI): RETURN 

270 LI=LI+1 

280 IF LKB THEN 260 

290 RETURN 

399 REM *** CHARACTER CHANGE *** 

400 CH=CH+1 

410 IF CH>255 THEN CH=129 
430 RETURN 

499 REM *•«•* MAIN DRAWING LOOP **» 

500 IF C0>832 THEN C0=C0-64»14 
510 IF C0<0 THEN C0=C0+64*14 
530 PRINTiiCO,CHR*(CH) ; 

540 GOSUB 200 
560 FOR D=l TO 50 
570 NEXT D 
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580 GOTO 500 

999 REM *** INTRODUCTION *** 

1000 CLS 

1060 PRINT "THE DIRECTION KEYS ARE:" 
1070 PRINT 

1080 PRINT TAB (8) 5 "U 10" 
1090 PRINT TAB (8) ; "J L" 
1100 PRINT TAB(S)?"M , ." 
1110 PRINT 

1120 PRINT "PRESS (ENTER) TO BEGIN."? 
1130 INPUT R* 
1140 CLS 

1149 REM *** INITIALIZE VARIABLES AND ARRAYS **« 

1150 FOR 1=0 TO 7: READ KT* (I) : NEXT I 
1160 FOR 1=0 TO 7: READ YT(I):NEXT I 
1170 C0=47S:CH=191 

1180 PRINTe965^ "Z=CHANGE CHARACTER"; 
1190 PRINTillOOO, "@=CLEAR SCREEN"; 
1200 POKE 16526, 105 
1210 POKE 16527,0 
1220 PRINT CHR*(21) 
1230 GOTO 500 

2000 DATA ",",". ",L, 0,1, U, J, M 

2010 DATA 64,65,1,-63,-64,-65,-1,63 

VIC-20 

1 REM *** DRAWING VIC-20 ♦** 
10 GOTO 3000 

99 REM *■** JOYSTICK ROUTINE *** 

100 IF J=0 THEN £00 
il0 POKE 37154, i£7 

120 XT-/i=PEEK (37152) AND 128 
130 POKE 37154,255 

140 XT54=XT'^ OR (PEEK (37137) AND 127) 
150 XI=SGN(XT-/.flNDi28)-SGN(XT"/.fiND16) 
160 YI=SGN(XT>'.flNDS)-SGN(XT?CfiND4) 
170 SOTO 210 

199 REM *♦* READ KEYBOARD ROUTINE ♦** 

200 XI=0:YI=05LI=0 
210 GET KE* 

220 IF KEY*=""THEN RETURN 

230 IF KE*=CHR*(133) THEN GOSUB 400 

£40 IF KE*=CHR*(134) THEN K0L=K0L+1 

£50 IF K0L>8 THEN KOL=0 

£60 IF KE*=CHR*(i35) THEN BA=BA+16 

270 IF BA> 125 THEN BA=13 

£80 IF J=l THEN RETURN 

290 IF KE*=KT«(LI) THEN YI=YT (LI ) s XI=XT (LI > s RETURN 
300 LI=LI + l!lF LK8 THEN £90 
310 RETURN 

399 REM *** CHANGE CHARACTER *** 

400 CK=CH+1 

410 IF CH=1£8 THEN CH=£7 
4£0 IF CH=161 THEN CH=33 
430 IF CH=32 THEN CH=i60 
44iZl RETURN 

499 REM *** MAIN DRAWING LOOP *** 

500 IF R0>18 THEN RO=0 
510 IF RO<0 THEN R0=--18 
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520 IF CO>£S THEN CO=0 

530 IF CO<0 THEN CO=£a 

540 POKE 36879, Bfl 

550 POKE CB+CO+e£*RO, KOL 

560 POKE SB+C0+22*R0, CH 

570 GOSUB 100 

580 RO=RO-YI :CO=CO-XI 

590 GOTO 500 

2999 REM **♦ INTRODUCTION #** 

3000 PRINT CHR*<147) 

3010 PRINT "USING fl JOYSTICK (Y/N) " 
3020 GET J*: IF J*=""THEN 3020 

3030 IF J*="Y" THEN J=1:PRINT CHR* ( 147) : GOTO 3160 
3040 IF J*="N" THEN J=0 
3050 PRINT CHR* (147) 

3060 PRINT "THE DIRECTION KEYS ORE" 
3070 PRINT 

3080 PRINT TflB<8)"U I 0" 
3090 PRINT TftB(8)"J L" 
3100 PRINT TftB(8)"M , 
3110 PRINT 

3120 PRINT "PRESS (SHIFT) TO BEGIN" 
3130 WRIT 653, 1 
3140 mil 653, 1, 1 
3150 PRINT CHR* (147) 

3153 REM *** INITIALIZE VflRIflBLES *** 
3 1 60 SB=7680 : CB=38400 s C0= 1 1 s R0= 1 
3170 Bft=29 5CH=160:POKE 650,128 
3180 FOR 1=0 TO 7:REflD KT*(I):NEXT 
3190 FOR 1=0 TO 7:REfiD XT(I)sNEXT 
3200 FOR 1=0 TO 7:REflD YT(I):NEXT 

3209 REM *** SCREEN DISPLAY ♦** 

3210 PRINT CHR* (144) CHR* (19) 
3220 FOR T=i TO 22: PRINT: NEXT T 
3230 PRINT "Fl CHANGE CHARACTER" 
3240 PRINT "F3 CHARACTER COLOR 
3250 PRINT "F5 BACKGROUND COLOR" 
3260 GOTO 500 

4000 RETURN 

5000 DATA I,U, J, M, ",",". ",L,0 
5010 DATA 0,1,1,1,0,-1,-1,-1 
5020 DATA 1,1,0,-1,-1,-1,0,1 



134 



10 AWESOME PROGRAMS FROM K-POWER 



BONUS PROGRAM #10 

MUSIC RECORDER 

The MUSIC RECORDER changes your computer into a computer 
tape recorder u By pressing the computer keys pictur'Bd 
undiBr notes on the screen, you make up songs « When you're 
ready to re^cord, press the key pictured -next to START 
FilECORDING, enter the notes of the song, then press the key 
next to PLAY BACK SONG, to hear the tune a When you're 
tired of hearing a tune, press the key pictured next to 
ERASE SONG MEMORY to get rid of the song. Up to 100 notes 
c an s t o v" e d a t o n e t i m e i n t h e r e c o r d e r = I f t h e n u m b e r 
exceeds 100, the note memory is erasGr?d and set at one 
again n 



Apple II and Apple He 

1 REM ^-^-^ MUSIC RECORDER APPLE ^--^^ 

10 GOTO 600 

19 REM '^^'^ PLAY NOTE ROUTINE 

20 POKE 6 5LD(T) 
30 POKE 7,HD(T) 
40 POKE 8 5F(T) 
50 CALL SOU 

60 IF F < > 1 THEN RETURN 

70 IF C > 99 THEN 400 
80 NH(C) ^ T 
90 C •-■^ C "I" 1 

100 RETURN 

199 REM -J^-^-i^- RECORD NOTE ROUTINE '^-^-^ 

200 F 

210 FOR B 1 TO C - 1 

220 T ^ NH(B) 

230 GOSUB 20 

240 NEXT B ' 

299 REM READ KEYBOARD ROUTINE -^^-^ 

300 T ^ 17 
310 GET m 

320 IF N:$: KB:il>(T) THEN GOSUB 20 

330 T T - 1 

340 IF T > 1 THEN 320 

350 IF m "B" THEN F -^-^ 1 

360 IF.N:il>- "S" THEN 200 

370 IF m "X" THEN 400 

300 GOTO 300 

399 REM J^-^-)? ERASE NOTE ROUTINE -^-^^ 

400 FOR X - TO 100 
410 NH(X) ^ 

420 NEXT X 

430 C --^ 1 

440 GOTO 300 

599 REM INITIALIZE VARIABLES 

600 HOME sSOU 768 
610 X 17!! C - 1 

620 DIM HD(X) ,LD(X) ,F(X) • 
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10 AWESOME PROGRAMS FROM K-POWER 



DIM KB$(X) ,NH(105) 
FOR X = TO 17 
READ F<X> ,HD<X) ,LD(X) 
READ KB*(X) 
NEXT X 

REM SCREEN DISPLAY «•»•«• 

FOR CO = 7 TO 16 STEP 2 
FOR RO = 2 TO 19 

115C2 = 16; GOSUB 740 
2.3 s GOSUB 740 
28 3 GOSUB 740 
29s GOSUB 740s 
TO C2 STEP 2 
2 TO 13 
VTAB RO 
s PRINT " 
PRINT " "5 ' 
NEXT COs RETURN 
HTAB 11; INVERSE s 
HTAB 11: VTAB 1 
PR I NT " C#D#EF#e# A#BC#D#EF " 
VTAB 15 

1 1 ) "a2W3ER5T6Y7UI900P[: " 



CI = 
CI = 
CI = 
CI = 
FOR 

FOR RO 
HTAB CO 
INVERSE 
NORMAL 
NEXT RO 
PRINT s 
NORMAL 



16;C2 = 
23s C2 = 
28 s C2 = 
CO == CI 



GOTO eoo 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TAB ( 
TAB< 
TAB< 



9) 
9) 



TO BEGIN RECORDING" 
TO PLAY back' SONG" 



630 
640 
650 
660 
670 
679 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
909 
910 
920 
930 
940 
950 
1 000 
1 1 
1020 
1030 
1 040 
1050 
1 060 

Atari 

1 REM *** MUSIC RECORDER ATARI *** 
10 GOTO 600 

99 REH PLAY NOTE F-<OUTINE 

100 IF NV(T)^-=0 THEN 300 
110 COLOR 1 1! PLOT T57 

120 IF F=l THEN D«505 IF FOl THEN D~0 

1 30 SOUND , N V ( T ) , 1 4 , 1 S 

140 FOR DUR~1 TO D+SOsNEXT DUR 

150 SOUND 0,0v 0,0; COLOR 

160 PLOT T,7 

170 IF FOl THEN POKE 764 , 255;: RETURN 

180 IF c>99 THEN 400 

1 90 NH ( C ) =T I! C=C i- 1 s RETURN 

199 REM RECORD NOTE ROUTINE ■ 

200 F=0 



PRINT SPC< 18) 



TABC 9) " 
REM *** POKE S 



FOR X 
READ A 
POKE X,A 
NEXT X 
GOTO 300 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



'X ' TO ERASE 
OUND ROUTINE 
SOU TO SOU + 22 



SONG. MEMORY" 



174 
96 



y? 1 



Q , 1 6: 



1 , 110 



44,2, 
,5,iL 
, 1 30 , U , 87 , 1 



45, 1 



, R , 1 23 , 1 , 40 ,5,1 1 6,1, 55 , T , 1 00 , 1 , 72 

"7 CD ' 
V 'J 



i , 252 , P , 65 , 2 , 30 , L 
230,7, 166,6, 164,8, 173,48, 192,234 
234 ,234 ,136, 208 , 250 , 202 , 208 , 242 
198,7,208,238.96 



. .3,13 
,6,103, 
, r ij / / ,1 



8,1 , 15, E 
1,90,Y 
, 200 , 
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10 AWESOME PROGRAMS FIK>M K-POWER 



210 FOR B==l TO C-1 




220 T=NH(B) 




230 eOSlJB 100 




240 NEXT B 




299 REM *** READ KEYBOARD ROUTINE *-x* 




300 T~28 




310 K=PEEK(764) 




320 IF l<=255 THEN 310 




330 IF K=B(T) THEN GOSUB 100 




340 T=T--1 




350 IF T>=9 THEN 320 




360 IF K=33 THEN F--=l 




370 IF K=23 THEN 200 




380 IF K==22 THEN 400 




390 POKE 764,255s BGTO 300 




400 FOR X=--=0 TO 100 




410 NH(X)=--^0 




420 NEXT X 




430 C=l 




440 GOTO 300 




599 REM #** INITIALIZE VARIABLES *** 








609 REM **■» DIMENSION ARRAYS *** 




610 DIM NV < X ) , B ( X ) , NH ( 100) 








620 POKE 752,2 




630 GRAPHICS 3 




640 PRINT CHR$(125) 




650 FOR X=--=ll TO 28 




660 READ asNV(X)=QsREAD Q:B<X)=Q 




670 NEXT X 




679 REM 




680 FOR CO^-^1 i TO 28 




690 READ RG,KO 




700 COL.OR KO 




710 PLOT CO, 8 ■ ■ 




720 DRAWTO CO , RO 




730 NEXT CO 




740 PRINT " , Q2W3ER5T6Y7UI9Q0P- " 




750 PRINT "SPACE BAR TO BEGIN . RECORDING" 




760 PRINT "PRESS I TO PLAYBACK SONG" 




770 POKE 752,2 




780 PRINT "PRESS X TO ERASE SONG MEMORY" 




790 GOTO 300 




1 000 DATA 121, 47 , 1 1 4 , 30 , 1 08 , 46 , 1 02 , 26 , 96 , 42 , 9 1 , 40 , 85 , 2 






SO 4 7 10 . 4.S . 14 


1 020 DATA 1 7 , 1 ,15,2, 1 7 , 3 , 1 5 , 2 , 1 7 , 1 ,17, 3 ,15,2,17,1,15, 2 


, J. / « .J .1 V.J .J .1. / r, X 


1 030 DATA 1 7 j 3 , 1 5 , 2 ,17,1, 1 5 , 2 1 7 , 3 , 1 7 , 1 




Commodore 64 




1 REM *** MUSIC RECORDER 64 *** 




10 BOTO 600 




19 REM *** PLAY NOTE ROUTINE **# 




213 POKE CB+T+9+40*l, 1 




30 POKE S0U+£4, 15 




40 POKE SOU+5, 64 




50 POKE SOU+6,64 




60 PuKc SuU+4, Ovi 




70 POKE S0U+1,HF(T) 




80 POKE SOU, LF(T) 
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10 AWESOME PROGRAMS FROM K-POWER 



90 FOR DUR=1 TO 75 

100 NEXT DUR 

110 POKE CB+T+9+40*l,0 

120 IF FOl THEN RETURN 

130 POKE S+£A,0 

140 POKE SOU, 

150 POKE SOU+ 1,0 

160 IF 99 THEN 400 

170 NH(C)=T 

180 C=C+1 

190 RETURN 

199 REM ♦*« RECORD NOTE ROUTINE *** 
£00 F=0 

210 FOR B=l TO C-1 
£20 T=NH(B) 
230 GOSUB 20 
240 NEXT B 

299 REM READ KEYBOARD ROUTINE 

300 T=19:P0KE S+£4,0:PaKE SOU, 0: POKE SOU+1,0 
310 GET N*:IF N*=""THEN 300 

320 IF N*=KB*<T) THEN GOSUB 20 
330 T=T-1 

340 IF T> 1 THEN 320 
350 IF N$=CHR*(133) THEN F=l 
360 IF N*=CHR*<134) THEN £0® 
370 IF N*=CHR*(135) THEN 400 
380 IF N*=CHR*(136) THEN 500 
390 GOTO 300 

399 REM ♦*♦ ERfiSE NOTE ROUTINE 

400 FOR X=0 TO 100 
410 NH(X>=0 

420 NEXT X 

430 C=l 

440 GOTO 300 

499 REM *** CHANGE SCREEN COLOR ♦«* 

500 S=S+1 

510 IF S=19 THEN S=£ 
520 POKE SC,SC(S) 
530 POKE BC, BC(S) 
540 GOTO 300 

599 REM #♦♦ INITIALIZE VARIABLES *** 

600 CB=55£96!SB=10£4:SOU=54£7£ 
610 X=££:C=1 :S=2:SC=53£81 sBC=53£a0 
619 REM *** DIMINSION ARRAYS *** 
6£0 DIM HF<X) , LF(X) , C(X) , Y(X) , SC(X) 
630 DIM KB*(X),BC(X),NH(i05) 

639 REM **♦ SCREEN DISPLAY *** 

640 PRINT CHR$(147) 

650 POKE SC, 1£;P0KE BC, 11 

660 FOR X=£ TO 19 

670 READ HF(X),LF<X),C<X), Y(X) 

680 READ KB*(X),SC(X),BC(X) 

690 NEXT X 

700 FOR C0=£ TO 19 

710 FOR R0=3 TO Y(C0)+1 

7£0 POKE CB+CO+9+40*RO, C<CO) 

730 POKE SB+CO+9+40*RO, 160 

740 NEXT RO 

750 NEXT CD 
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10 AWESOME PROGRAMS FROM K-POWER 



800 PRINT CHR*(19)CHR*(144) 
810 PRINT 

880 PRINT TOB(ll) "C#D#EF#G#fi#BC#D#EF" 
830 FOR X=l TO 12 
840 PRINT 
850 NEXT X 

860 PRINTTfiB (11) "W3E4RT&Y7UaiO0P+e*" 
870 PRINT 
880 PRINT 

890 PRINTTftBO) "Fl TO BEGIN RECORDINB" 
900 PRINT 

910 PRINTTfiB(9) "F3 TO PLftY BftCK SONG" 
920 PRINT 

930 PRINTTflBO) "F5 TO ERfiSE SONG MEMORY" 
940 PRINT 

950 PRINTTflB(9) "F7 TO CHANGE SCREEN COLORS" 
960 GOTO 300 

1000 DftTfi 16, 195, 1, 13, W, 15, 13, 17, 195,0, 11,3,9, 11 
1010 DflTfl 18,209, 8, 13, E, 11, 12, 19,239,0, 11,4, 11, 13 
1020 DftTfl 21,31,2, 13, R, 10, 15, 22, 96, 5, 13, T, 11, 15 
1030 DflTfl 23, 181,0, 11,6,9, 11,25, 30,6, 13, Y, 15,9 
1040 DflTfl 26,156,0,11,7,9,14,28,49,4,13,0,14,11 
1050 DflTfl 29,223,0,11,8,12,15,31,165,3,13,1,10,10 
1060 DflTfl 33,135,1, 13,0,9,13,35,134,0,11,0,10,12 
1070 DflTfl 37, 162, 8, 13, P, 12, 14,39,223, 0, 11,+, 11, 15 
1080 DflTfl 42, 62, 2, 13, §, 9, 15, 44, 193, 5, 13, *, 14, 1 1 

IBM PC 

i FEh MUSIC RELCORDER IBM-PC *** 

10 i<e;y off 

GOTO 600 
99 REM **•» PLAV NOTE ROUTINE **» 
1,00 ;i'.F WV<f)--0 THEN 300 ' ' 

110 LOCATE 4, Is PRINT CHR*-(2); 
120 FOR DELAY- 1 TO 10; NEXT DELAY 
130 SOUND NV <T) ,5 
140 LOCATE 4,T 
1 50 PR I NT CHR* < 32 ) ? 
160 IF FOl THEN RETURN 
170 IF 099 THEN 400 
:I79 REM RECPRD NOTE 

180 NH';C)=T 
190 C=--C+ls RETURN 
200 F^^--0 

210 FOR B-1 TO C-1 
220 T=NH(B) ' 
230 (30SUB 100 
240 NEXT B 

299 REM REAiD KEYBOARD ROUTINE 

300 T~-'18 

310 N*=INl<EY*ii IF m--"" THEN 300 
320 IF N*=K8*<T) THEN 60SUB 100 

330 T- r--i 

340 IF T>30 THEN 32C' 
350 IF N*-:-CHR:$<32) THEN F-1 
360 IF Nf="7." THEN 200 
370 IF N*~"X" THEN 400 
380 GOTO 300 

399 REM K*:* ERASE NOTES ROUTINE *«•«• 
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10 AWESOME PROGRAMS FROM K-POWER 



400 FOR X":=0 TO 100 

410 ^4H(X)=0 

420 NEXT X 

430 C=l 

440 GOTO 300 

599 REM INITIALIZE VARIABLES ^■^■ifr 

600 X=^49 s 1 s SCREEN O , O , O s W I DTH SO 
610 DIN NV < X ) , KB^ ( X ) , IMH ( 1 00 ) 

620 CLS 

629 REN LOAD NOTE AND KEYBOARD ARRAYS -J^-^-^- 

630 FOR X^Zl TO 48 
640 READ NV < X ) ^ KBt- ( X ) 
650 NEXT X 

659 REN SCREEN DISPLAY -^-^J?- 

660 FOR C0-=31 TO 48 
670 READ V,CH 

630 FOR R0:^5 TO Y 
690 LOCATE ROhCO,0 
700 PRINT CHR$: (CH) 5 
710 NEXT RO 
720 NEXT CO 
730 LOCATE 5,31 

740 PRINT "C#D#EF#G#A#BC#D#EF" 5 
750 LOCATE 19,31 

760 PRINT "Q2N3ER5T6Y7UI900Pj: "5 
770 LOCATE 21 ^26 

780 PRINT "SPACE BAR TO BEGIN RECORD 
790 LOCATE 23,26 

800 PRINT "PRESS Z TO PLAYBACK SONG" 5 
810 LOCATE 25,26 

820 PRINT "PRESS X TO ERASE SONG MENORY"^ 
830 00*10 300 

1000 DATA 262, Q, 27 7, 2, 294 3 11, 3, 330, E, 349 J< 

1 1 DATA 370 , 5 , 392 , T , 4 1 5 , 6 , 440 . Y . 466 7 . 49 <1 , U , 523 , I 

1020 DATA 554, 9, 587, 0,622, Oh 659, P, 698, L: 

1030 DATA 17 , 17b, 14.219, 1 7 , 1 76 , 1 4 , 21 9 17, 178, 17. 176 

1040 DATA 14 , 219 , 17 , 1 78 , 1 4 . 219 , 1 7 , 1 76; 14 , 219 , 1 7 , 1 78 

1050 DATA 17, 176, 14,219, 17, 178, 14,219,17,176,17,178 

TI-99/4A 

I REH ^'^-^ NUSIC RECORDER TI99/4A 

9 REN -^-^-^ DINENSIGN i-40 TE ARRAYS 

1 D 1 N H ( 1 00 ) . Q ( 26 ) , V ( 26 ) h R ( 26 ) , CH ( 1 75 ) 
20 GOTO 350 

29 REH ^^-^ PLAY NOTE ROUCINE 

30 IF V<T)^:^0 TI'-IEN ISO 
40 CALL HCHAR ( 3 . T , 88 ) 

50 CALL SOUND ( 1 00 , V ( T ) , ) 
60 CALL HCHAR (3, T, 33) 

69 REN -^if* RECORD NOTE 

70 IF FOl THEN SO ELSE 90 
80 RETURN 

90 IF C>99 THEN 300 
100 H<C)==T 
110 C:^^C-i"l 
120 RETURN 
130 F^^O 

140 FOR B^l TO C-1 
150 T"^H(B) 
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160 GdSUB 30 
170 NEXT B 
180 T'~25 

189 REM *** READ KEYBOARD 

190 CALL KEY(3,K,P) 
200 IF P=0 THEN 190 

210 IF K=Q(T)THEN 220 ELSE 230 
220 GOSUB 30 
230 T=T~1 

240 IF T>6 THEN 200 

250 li= K.=32 THEN 260 ELSE 270 

260 F=l 

270 IF K=83 THEN 130 
280 IF K;=68 THEN 300 
290 GOTO 180 

299 REM *** ERASE NOTES *** 

300 FOR X=0 TO 100 
310 H<X)=0 

320 NEXT X , 

330 C=l 

340 GOTO 180 

349 REM *** DEFINE CHARACTERS *** 

350 A*="FFFFFFFFFFFFFFFF" 
360 CALL CLEAR 

370 B*- " 2424FF2424FF 2424 " 
380 C*= " 00C324 18101 1 1 O " 
390 X=26 
400 C-1 

410 CALL CHAR (88, A*) 
420 CALL CHAR c 33 , A* ) 
430 FOR X=8 TO 25 

439 REM LOAD ARRAYS *** 

440 READ V ( X ) , Q < X ) , CI I < X ) , R ( X .> 
450 CALL CHAR(CH!:X) ,A4-) 

460 NEXT X 

470 CALL CHAR(.96,B*J 
480 CALL CHAR(42,C*> 
490 FOR X=8 TO 16 
500 READ F , B 
510 CALL COLOR <X,F,B) 
520 NEXT X 

530 CALL COI...OR ( 1 , 3- , 5 ';■ 

539 F-^EM it** SCREEN DISPLAY *»* ' 

540 CriLL CLEtiR 

550 PR I N 1 l AB < 6 ) ? " C#D#EF#G# A+ieC#D#EF " 
560 FOR X---=l 10 13- 
570 PRINT 
580 NEXT X 

590 PRINT rAe(&) 5 "Q2W3ER5T6Y7UI900P1" 
600 PRINT 
610 PRINT 

620 PRINT " PRESS SPACEBAR TO RECORD" 
630 PRINT 

640 PRINT " PRESS S TO PLAY BACK SONG" 

650 PRINT • 

660 PRINT " PRESS D TO ERASE SONG" 

670 FOR X"8 10 25 

6SU ChiLL VCHaR (. 4 , X , CH ( X , R ( X ) ) 

690 NEXT X 



10 AWESOME PROGRAMS FROM K-POWER 

700 GOTO 180 ~ ' 

7 1 DA r A 262 , 8 1 , 1 04 , 1 1 , 2 77 , 50 , 9 7 , 9 , 294 , 87 , .1 .1 2 , 1 1 

720 DATA 3.], J. ,51,97,9,330,69,120,11 

730 DA r A 349 , 82 , 1 28 , 1 1 , 3 70 ,53,97,9, 392 , 84 , 1 36 , 1 1 

740 DAT A 4 1 5 , 54 , 97 , 9 , 440 , 89 , 1 44 , 1 1 , 466 , 55 , 97 , 9 

750 DA TA 494 , 85 , 1 52 , 1 1 , 523 ,73,1 04 ,11, 554 ,57,97,9 

760 DATA 587 ,79,112,11, 622 , 48 , 97 , 9 , 659 , 80 , 1 20 , 1 1 

770 DA r A 698,47,128,11 

7 8 D A T A 16,16,2,1,5,5,7,7,8,8,11,11,14,14,15,15,10,10 

TRS-80 Color Computer 

1 REM ♦»* MUSIC RECORDER TRS-Se COLOR 
10 GOTO 600 

99 REM ♦*» PLOY NOTE ROUTINE 

100 IF NV(T)=0 THEN 300 
110 PRINT @T, CHR*( 143+16) ; 
120 SOUND NV<T),3 

130 PRINT & T, CHR*(143); 
140 PRINT e T, CV*(T) ; 
150 IF FOl THEN RETURN 
160 IF 99 THEN 400 
170 NH(C)=T 
180 C=C+1 
190 RETURN 

199 REM «** RECORD NOTE ROUTINE 
£00 F=0 

£10 FOR B=l TO C-1 
£S0 T=NH(B) 
£30 GOSUB 100 
£40 NEXT B 

£99 REM REfiD KEYBOARD ROUTINE 

300 T=£4 

310 N*=INKEY*!lF N*=""THEN 300 
320 IF N*=KB*(T) THEN GOSUB 100 
330 T=T-1 

340 IF T>5 THEN 320 
350 IF N*=CHR*(3£> THEN F=l 
360 IF Ni="Z" THEN £00 
370 IF N*="X" THEN 400 
380 GOTO 300 

399 REM ERfiSE NOTE ROUTINE 

400 FOR X=0 TO 100 
410 NH(X)=0 

420 NEXT X 

430 C=l 

440 GOTO 300 

599 REM **» INITIALIZE VflRIflBLES **» 

600 X=25:C=1 

609 REM DIMENSION ARRflYS 

610 DIM CV*(X),KB*(X),NH(100),NV(X) 
620 CLS 

630 FOR X==7 TO 24 

640 READ NV(X),CV*(X),KB*(X) 

650 NEXT X 

699 REM SCREEN DISPLAY 

700 FOR C0=7 TO 24 
710 PRINT @C0, CV*(CO>? 
720 PRINT eC0+224,KB*(C0) ; 
730 NEXT CO 
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740 READ X,Y, KD 

750 IF KO=0 THEN ft=l£8 

760 IF KOO0 THEN fi=lA3 

770 IF X=-l THEN 820 

780 POR RO=X TO Y STEf 3£ 

790 PRINT@RO, CHR* ( A+KQ) 5 

800 NEXT RO 

810 GOTO 740 

820 PRINT@321, "SPACE BAR TO BEGIN RECORDING"; 
830 PRINTe385, "PRfeSS Z TO PLAYBACK SONG"; 
840 PRINTe44g, "PRESS X TO ERASE SONG MEMORY"; 
850 GOTO 300 

1000 DATA 8g,C,Q,99, #, 2, 108,D,W, 117,#,3,-125rE,E 

i010 DATA 133, F, R, i40,#, 5, 147, G, T, 153,#,6, 15g,A, Y 

1020 DATA 165, #,7, 170, B,U, 176, C, I, 180, #,9 

1030 DATA 185, D, 0, 189, #,0, 193, E, P, 197,F,@ 

1040 DATA 39,199,16,40,168,0,41,201, 32 

1050 DATA 42, 170, 0, 43, 2(83, 48, 44, 204, 64 

1060 DATA 45, 173, 0, 46, 206, 80, 47, 175, 

1070 DATA 48,208,96,49,177,0,50,210,112 

1080 DATA 51,211,16,52,180,0,53,213,32 

1090 DATA 54,182,0,55,215,48,56,216,64 

1100 DATA -1,-1,-1,-1,-1,-1 

VK-ao 

1 REM MUSIC RECORDER VIC-20 ♦*» 

10 GOTO 600 

99 REM **♦ PLAY NOTE ROUTINE ♦*♦ 

100 PGK£ CB+T+2£*0, 1 

110 POKE V, 15: POKE S3, NV(T) 
120 FOR DUR=1 TO 100: NEXT DUR 
130 POKE CB+T+22*0, 
150 IF FOi THEN RETURN 
160 IF 99 THEN 400 
170 NK(C)=T 
180 C=C+1 
190 RETURN 

199 REM «♦* RECORD NOTE ROUTINE ♦** 

200 F=0 

£10 FOR B=l TO C-i 
220 T=NH<B) 
230 QOSUB 100 
£40 NEXT B 

£99 REM #*♦ READ KEYBOARD ROUTINE 

300 T=ig:POKE S3, 

310 GET N*:IF N*=""THEN 300 

320 IF N*=KB*(T) THEN GOSUB 10(3 

330 T=T-1 

340 IF T>1 THEN 320 
350 IF N*=CHR*(133) THEN F=l 
360 IF N*=CHR*(134) THEN 200 
370 IF N*=CHR*<135> THEN 400 
380 IF N«=CHR«(136) THEN 500 
3g0 GOTO 300 

3gg REM *** ERASE NOTE ROUTINE *** 
400 FOR X=0 TO 100 
410 NH(X)=0 
420 NEXT X 
430 C=l 
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440 GOTO 300 

499 REM *** CHANGE SCREEN COLOR *#» 

500 S=S+1 

510 IF 5=19 THEN S=2 
5£0 POKE SC, SC(S) 
530 GOTO 300 

599 REM *»♦ INITIALIZE VflRIfiBLES ♦** 

600 CB=38400!SB=7680: 33*36876 

6 1 V=36878 ; 30=36879 : X=££ : C= 1 : 3=2 
630 DIM NV(X),BC(X), Y<X),SC(X) 
630 DIM CV(X)^KB*(X),NH(100),NC<X) 

639 REM **♦ 3CREEN DISPLAY *** 

640 PRINT CHR*(147) 
650 POKE 3C, 190 
660 FOR X=£ TO 19 

670 READ NC(X),NV(X),BC(X), Y(X) 

680 READ CV<X),KB*(X),SC(X) 

690 NEXT X . 

700 FOR C0=£ TO 19 

710 FOR R0=1 TO Y(C0)+1 

720 POKE CB+C0+2£*R0, BC(CO) 

730 POKE SB+C0+22*R0, 160 

740 POKE CB+C0+2£*9, 

750 POKE SB+C0+22*9, CV(CO) 

760 POKE CB+CD+££*0. 

770 POKE SB+GO+£2*0,NC(CO) 

780 NEXT RO 

790 NEXT CO 

800 PRINT CHR*(ig)CHR*(144) 
810 FOR X=l TO 11 
820 PRINT:NEXT 

830 PRINT "Fl TO BEGIN RECORDING" 

840 PRINTS PRINT 

850 PRINT "F3 TO PLAY BACK" 

860 PRINT: PRINT 

870 PRINT "F5 TO ERA3E MEMORY" 
880 PRINT: PRINT 

890 PRINT "F7 TO CHANGE COLORS" 
900 GOTO 300 

1000 DATA 3, 195, 1, 6, £3, W, 159, 35, 199, 0, 5, 51, 3, 173 
1010 DATA 4,£01,7,6,5,E, 174,35,£03,0,5,5£,4, 175 
10£0 DATA 5, £07,2, 6, 18, R, 188, 6, £10, 5, 6,20, T, 189 
1030 DATA 35,212, 0,5, 54, 6, 190,7,215, 6,6,25, Y, £03 
1040 DATA 35, £17, 0,5,55, 7, £04, 1,219, 4, 6,21, U, 205 
1050 DATA 35, 221, 0,5, 56, 8, 218, 2, £23, 3, 6, 9, 1.219 
1 060 DATA 3, 225, 1,6,1 5, 0, 220, 35, 227, 0, 5, 48, 0, 253 
1070 DATA 4, 2£8, 7, 6, 16, P, 234, 35, 229, 0, 5, 43, +, 235 
1080 DATA 5^£3i,£, 6, 0,@,£5£,6, 23£,5,6, 4£,*, £50 
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